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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 跨表统计相关

共有1759人关注过本帖树形打印复制链接主题：跨表统计相关

zhangning

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

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

跨表统计相关 发帖心情

Post By：2016/8/13 8:37:00 [只看该作者]

老师

根据帮助，已经写完了以下代码

If e.DataCol.Name = "作业者名" Then '发生变化的是产品列.

e.DataRow("工时H") = DataTables("PEQ数据").Compute("Sum(小计工时)","[作业者名] = '" & e.NewValue & "'")

End If

运行正常，如果想追加上，按年月统计，怎么添加呢

zhangning

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

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/8/13 9:21:00 [只看该作者]

我用数据填充在datacolchanged事件中写的，

还写了跨表统计，具体如下：

Dim f As New Filler

f.SourceTable = DataTables("PEQ数据") '指定数据来源

f.SourceCols = "年月,作业者名" '指定数据来源列

f.DataTable = DataTables("绩效工时") '指定数据接收表

f.DataCols = "年月,作业者名" '指定数据接收列

f.Fill() '填充数据

If e.DataCol.Name = "作业者名" Then '发生变化的是产品列.

'则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列

e.DataRow("工时H") = DataTables("PEQ数据").Compute("Sum(小计工时)","[作业者名] = '" & e.NewValue & "'")

End If

但突然就退出狐表了，请老师帮看看原因在什么地方？

Hyphen

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

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/8/13 9:54:00 [只看该作者]

死循环了，把填充代码写到窗口按钮里。

主题：跨表统计相关