主题：统计

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("生产计划细"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("物料编码") '根据品名分组
bd1.Groups.AddDef("部门") '根据型号分组
bd1.Groups.AddDef("计划日期","年") '根据型号分组
bd1.Totals.AddDef("计划数量","计划数量") '对数量进行统计
'bd1.Totals.AddDef("金额","进货_金额") '对金额进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("入库明细"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("物料编码") '根据品名分组
bd2.Groups.AddDef("部门") '根据型号分组
bd1.Groups.AddDef("入库日期","年") '根据型号分组
bd2.Totals.AddDef("入库数量","入库数量") '对数量进行统计
'bd2.Totals.AddDef("金额","销售_金额") '对金额进行统计
dt2 = bd2.BuildDataSource()

'Dim bd3 As New GroupTableBuilder("统计表3",DataTables("退货单"))
'Dim dt3 As fxDataSource
'bd3.Groups.AddDef("品名") '根据品名分组
'bd3.Groups.AddDef("型号") '根据型号分组
'bd3.Totals.AddDef("数量","退货_数量") '对数量进行统计
'bd3.Totals.AddDef("金额","退货_金额") '对金额进行统计
'dt3 = bd3.BuildDataSource()
'
Dim nms As String() = {"物料编码","部门","年"} '指定连接列
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
'dt1.Combine(nms,dt3,nms) '将退货统计数据组合到进货统计数据
dt1.Show("统计表1") '显示统计结
MainTable = Tables("统计表1")

我想按日期统计，怎么办？统计项包括物料编码、部门、日期

什么意思? 按日期筛选出数据再统计,还是增加一个日期作为分组项?

那就根据日期分组啊

 

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