以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  跨表统计相关  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88995)
--  作者：zhangning
--  发布时间：2016/8/13 8:37:00
--  跨表统计相关
老师
根据帮助，已经写完了以下代码

If e.DataCol.Name = "作业者名" Then \'发生变化的是产品列.
    e.DataRow("工时H") = DataTables("PEQ数据").Compute("Sum(小计工时)","[作业者名] = \'" & e.NewValue & "\'")
End If

运行正常，如果想追加上，按 年月统计，怎么添加呢
--  作者：zhangning
--  发布时间：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
--  发布时间：2016/8/13 9:54:00
--  
死循环了，把填充代码写到窗口按钮里。