- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 条件统计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89527)
-- 发布时间：2016/8/23 17:44:00
-- 条件统计
统计表中有“单位名称”、“年度”、“月份” 、“后备_进货”（进货金额）四个列，如图：
此主题相关图片如下：22.png
此主题相关图片如下：11.png
-- 发布时间：2016/8/23 18:04:00
--
建议直接上传项目文件，这么多表，这么多列，要准确回复的你的问题，还得花费大量的时间去建表去输入测试数据。
外部数据源的话，可以新建一个项目，导入这几个表，然后再上传就行了。
你节省一分钟的时间，却会让想帮你的人多花10几分钟。
不想做例子的话，参考：
http://www.foxtable.com/webhelp/scr/0681.htm
http://www.foxtable.com/webhelp/scr/2394.htm
-- 发布时间：2016/8/23 20:53:00
-- 条件统计
上传例子，麻烦帮看一下。 我这边用的
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.rar |
是外部数据源
-- 发布时间：2016/8/23 21:46:00
--
DataColChanged事件
Select Case e.DataCol.name
Case "单位名称", "年度", "月份"
If e.DataRow.IsNull("单位名称") = False AndAlso e.DataRow.IsNull("年度") = False AndAlso e.DataRow.IsNull("月份") = False Then
Dim d As Date = new Date(e.DataRow("年度"), e.DataRow("月份"), 1)
Dim filter As String = "采购单位 = \'" & e.DataRow("单位名称") & "\' and 采购日期 >= #" & d & "# and 采购日期 < #" & d.AddMonths(1) & "#"
e.DataRow("后备_进货") = DataTables("采购单明细").Compute("sum(数量)", filter)
Else
e.DataRow("后备_进货") = Nothing
End If
End Select