求助：关联表计算问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

一、数据结构

主表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编辑过]

forms("窗口1").controls("TextBox2").Value = DataTables("表B").compute("sum(iquantity)","[ID] = " & id1)

forms("窗口1").controls("TextBox3").Value = DataTables("表B").compute("sum(iNum)","[ID] = " & id1)

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

此主题相关图片如下：ts1.jpg

例子上传上来。

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

以下是引用sdbzjy在2014-6-30 16:22:00的发言：
您好甜老师，系统连接的外部表，我分离下试试。

不需要发项目上了，简单做一个例子发上即可。你1楼给的代码，不会出现3楼那个错误。做个简单的例子，或者把外部数据表定向成内部表或access数据源发上来。

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:关联表计算例子.foxdb

感谢Bin老师！成功。

主题：求助：关联表计算问题