Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：关联表计算问题


  共有3619人关注过本帖树形打印复制链接

主题：求助：关联表计算问题
帅哥哟，离线，有人找我吗？
sdbzjy
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：69 积分：542 威望：0 精华：0 注册：2014/3/27 10:20:00 		求助：关联表计算问题  发帖心情 Post By：2014/6/30 15:35:00 [显示全部帖子]

一、数据结构

    主表A字段：ID(整型）     DDATE(日期型）  CCODE（字符型）
    子表B字段：AUTOID(整型） ID(整型）   INUM(双精度小数）  iquantity(双精度小数）
    两表通过ID字段关联。

代码实现目的：
第一步：通过窗口文本控件输入数据查找表A的CCODE,定位本行的ID,查找成功后将ID赋值到变量id1.
第二步：通过代码计算表B的ID等于id1的INUM和iquantity的值。

二、代码：

  Dim ckzl1,ckjs1 As Double
 If e.form.controls("TextBox1").Text <> "" Then
        Dim ckh1 As String = forms("窗口1").controls("TextBox1").Value
        Dim dr1 As DataRow
        Dim ID,id1 As Integer
        dr1 = DataTables("表A").Find("[cCode] = '" & ckh1 & "'")
        
        If dr1 IsNot Nothing Then
            id1 = dr1(ID)
        End If
        forms("窗口1").controls("TextBox2").Value = DataTables("表B").compute("sum(iquantity)","[ID] = id1")
        forms("窗口1").controls("TextBox3").Value = DataTables("表B").compute("sum(iNum)","[ID] = id1")
        ckzl1 = forms("窗口1").controls("TextBox2").Value
        ckjs1 = forms("窗口1").controls("TextBox3").Value
       
End If

以上代码运行有误，请各位老师帮助分析。


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:关联表计算例子.zip


[此贴子已经被作者于2014-7-1 7:55:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
sdbzjy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：69 积分：542 威望：0 精华：0 注册：2014/3/27 10:20:00 		  发帖心情 Post By：2014/6/30 16:06:00 [显示全部帖子]

感谢Bin老师！实际运行出现以下提示，不是什么原因。


图片点击可在新窗口打开查看此主题相关图片如下：ts1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
sdbzjy
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：69 积分：542 威望：0 精华：0 注册：2014/3/27 10:20:00 		  发帖心情 Post By：2014/6/30 16:22:00 [显示全部帖子]

您好甜老师，系统连接的外部表，我分离下试试。

 回到顶部
帅哥哟，离线，有人找我吗？
sdbzjy
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：69 积分：542 威望：0 精华：0 注册：2014/3/27 10:20:00 		  发帖心情 Post By：2014/7/1 8:03:00 [显示全部帖子]

麻烦甜老师、Bin老师和各位老师帮我看看一楼的附件例子。

 回到顶部
帅哥哟，离线，有人找我吗？
sdbzjy
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：69 积分：542 威望：0 精华：0 注册：2014/3/27 10:20:00 		  发帖心情 Post By：2014/7/1 9:29:00 [显示全部帖子]

图片点击可在新窗口打开查看感谢Bin老师！成功。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.14063 秒, 6 次数据查询