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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]在表中引用另一个表中的统计结果怎么做？

共有2831人关注过本帖树形打印复制链接主题：[求助]在表中引用另一个表中的统计结果怎么做？

陈卫

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

加好友

发短信

等级：幼狐帖子：126 积分：813 威望：0 精华：0 注册：2015/10/22 10:35:00

[求助]在表中引用另一个表中的统计结果怎么做？ 发帖心情

Post By：2016/6/17 15:05:00 [只看该作者]

专家您好，我有“表1”和“表2”，分别如下：

“表1”

此主题相关图片如下：表1.bmp

“表2”

此主题相关图片如下：表2.bmp

现在要在“表2”中找到“编号”同“表1”中“编号”相同的所有行中不同“设备”种类数量，例如：在“表2”中找到“编号”为“003”的所有行，统计使用的设备是“A1、B2、A2”共3种，将“3”赋值给“表1”中“编号”为“003”行的“投入设备数量”列中

应当怎么编码？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/17 15:22:00 [只看该作者]

方法一：直接设置关联，然后统计

http://www.foxtable.com/help/topics/0091.htm

http://www.foxtable.com/help/topics/0100.htm

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/17 15:22:00 [只看该作者]

方法二：用跨表统计即可

http://www.foxtable.com/help/topics/1472.htm

陈卫

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

加好友

发短信

等级：幼狐帖子：126 积分：813 威望：0 精华：0 注册：2015/10/22 10:35:00

Post By：2016/6/17 15:43:00 [只看该作者]

我使用的是方法二，在“表1”的DataColChanged事件中设置如下代码：

If e.DataCol.Name = "编号" Then
e.DataRow("投入设备数量") = DataTables("表2").Compute("Sum(设备)","[设备] = '" & e.NewValue & "'")
If e.DataCol.Name = "投入设备数量" Then

Dim pr As DataRow
pr = DataTables(表2).Find("设备 = '" & e.DataRow("设备") & "'")
If pr IsNot Nothing Then
pr("投入设备数量")= pr("投入设备数量") + e.NewValue - e.OldValue

End If
End If

End If

这样编码不能运行，可我不知道怎么写!请教专家

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/17 15:47:00 [只看该作者]

[此贴子已经被作者于2016/6/17 15:47:39编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/17 15:50:00 [只看该作者]

表1 的DataColChanged事件写代码

If e.DataCol.Name = "编号" Then
e.DataRow("投入设备数量") = DataTables("表2").Compute("Count(编号)","编号 = '" & e.NewValue & "'")
End If

表2 的DataColChanged事件写代码

If e.DataCol.Name = "编号" Then
DataTables("表1").datacols("编号").RaiseDataColChanged("编号 = '" & e.NewValue & "'")
End If

陈卫

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

加好友

发短信

等级：幼狐帖子：126 积分：813 威望：0 精华：0 注册：2015/10/22 10:35:00

Post By：2016/6/17 15:58:00 [只看该作者]

统计的结果不对，我要在“表2”中找到“编号”为“003”的所有行，统计使用的设备是“A1、B2、A2”共3种，将“3”赋值给“表1”中“编号”为“003”行的“投入设备数量”列中，而不是将所有设备的数量（7）统计出来，并赋值给“表1”.请注意红色数字。（这里设备是在不同时间使用了同一台设备的，所以如A1使用了3天，统计时只能统计1次，而不是统计成3，B2使用了2天，统计时只能统计1次，而不是统计成2，A2使用了2天，统计时只能统计1次，而不是统计成2）

[此贴子已经被作者于2016/6/17 16:09:49编辑过]