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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助跨表引用统计

共有1748人关注过本帖树形打印复制链接主题：[求助跨表引用统计

xh2207

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：190 积分：1593 威望：0 精华：0 注册：2013/1/6 19:46:00

[求助跨表引用统计 发帖心情

Post By：2017/10/7 16:40:00 [只看该作者]

求助：表与表之间无任何关联，按订单号和工程编号引用统计合同分配明细表中的合同数量，将统计后的合同数量填到订货明细表中相应的行，认为重置合同数量列后无法实现功能。请赐教，感谢！烦将修改的代码贴出，小狗到期。

订货明细表DataColChanged

If e.DataCol.Name = "合同数量" Then
e.DataTable.ReplaceFor("合同数量", DataTables("合同分配明细表").Compute("Sum(合同数量)","订单号 = '" & e.DataRow("订单号") & "'and 工程编号 = '" & e.DataRow("工程编号") & "' ") )
End If

此主题相关图片如下：订货明细表.png

此主题相关图片如下：合同分配明细表.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:订1_201710071622.zip

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/7 16:44:00 [只看该作者]

1、把你的数据库发上来才能测试；

2、代码改成

If e.DataCol.Name = "订单号" OrElse e.DataCol.Name = "工程编号" Then
Dim sum = DataTables("合同分配明细表").Compute("Sum(合同数量)","订单号 = '" & e.DataRow("订单号") & "'and 工程编号 = '" & e.DataRow("工程编号") & "' ")
e.DataTable.ReplaceFor("合同数量", sum, "订单号 = '" & e.DataRow("订单号") & "'and 工程编号 = '" & e.DataRow("工程编号") & "' ")
End If

[此贴子已经被作者于2017/10/7 16:45:35编辑过]