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