以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  跨表统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75240)

--  作者：kaituozhe --  发布时间：2015/9/30 19:28:00 --  跨表统计 Select Case e.DataCol.name Case "发生年月"     Dim dr As DataRow = e.DataRow     If dr("发生年月").length =8 Then         Dim d1 As Date = new Date(dr("发生年月").substring(0,4), dr("发生年月").substring(5,2), 1)         Dim d2 As Date = d1.AddMonths(1)         Dim filter As String = "[物料名称] = \'" & dr("物料名称") & "\'and 发生日期 >=#" & d1 & "# and 发生日期 < #" & d2 & "# "         dr("销售数量")=DataTables("销售明细实际人员附表").Compute("sum(销售数量)",filter)     End If End Select

--  作者：kaituozhe --  发布时间：2015/9/30 19:28:00 --   上述代码有什么问题吗？实现不了求和功能

--  作者：大红袍 --  发布时间：2015/9/30 20:56:00 --   加入msgbox，弹出各个值，看是否进入执行了里面的代码。