- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助：关联表计算问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53135)
-- 发布时间：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
以上代码运行有误，请各位老师帮助分析。
[此贴子已经被作者于2014-7-1 7:55:02编辑过]
-- 发布时间：2014/6/30 15:49:00
--
forms("窗口1").controls("TextBox2").Value = DataTables("表B").compute("sum(iquantity)","[ID] = " & id1)
forms("窗口1").controls("TextBox3").Value = DataTables("表B").compute("sum(iNum)","[ID] = " & id1)
-- 发布时间：2014/6/30 16:06:00
--
感谢Bin老师！实际运行出现以下提示，不是什么原因。
此主题相关图片如下：ts1.jpg
-- 发布时间：2014/6/30 16:12:00
--
例子上传上来。
-- 发布时间：2014/6/30 16:22:00
--
您好甜老师，系统连接的外部表，我分离下试试。
-- 发布时间：2014/6/30 16:30:00
--
以下是引用sdbzjy在2014-6-30 16:22:00的发言：
您好甜老师，系统连接的外部表，我分离下试试。
您好甜老师，系统连接的外部表，我分离下试试。
不需要发项目上了，简单做一个例子发上即可。你1楼给的代码，不会出现3楼那个错误。做个简单的例子，或者把外部数据表定向成内部表或access数据源发上来。
-- 发布时间：2014/7/1 8:03:00
--
麻烦甜老师、Bin老师和各位老师帮我看看一楼的附件例子。
-- 发布时间：2014/7/1 8:43:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:关联表计算例子.foxdb |
-- 发布时间：2014/7/1 9:29:00
--
感谢Bin老师！成功。