专家坐堂-合并统计Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim bd1_m As New GroupTableBuilder("月度销售统计",DataTables("1销售表"))

Dim dt1_m As fxDataSource

bd1_m.Groups.AddDef("产品入库日期", DateGroupEnum.Year, "年度")

bd1_m.Groups.AddDef("产品入库日期", DateGroupEnum.Month, "月度")

bd1_m.Groups.AddDef("产品规格型号")

bd1_m.Totals.AddDef("金额总计") \'对数量进行统计

bd1_m.Totals.AddDef("数量总计") \'对数量进行统计

dt1_m = bd1_m.BuildDataSource()

Dim bd2_m As New GroupTableBuilder("统计表2",DataTables("2销售表"))

Dim dt2_m As fxDataSource

&e.Form.Controls("DateTimePicker2").value & "\' "

bd2_m.Groups.AddDef("产品入库日期", DateGroupEnum.Year, "年度")

bd2_m.Groups.AddDef("产品入库日期", DateGroupEnum.Month, "月度")

bd2_m.Groups.AddDef("产品规格型号")

bd2_m.Totals.AddDef("金额总计") \'对数量进行统计

bd2_m.Totals.AddDef("数量总计") \'对数量进行统计

dt2_m = bd2_m.BuildDataSource()

Dim nms_m As String() = {"年度","月度","产品规格型号","金额总计","数量总计"} \'指定连接列

dt1_m.Combine(nms_m,dt2_m,nms_m) \'将销售统计数据组合到进货统计数据

bd1_m.Build()

dt1_m.Show("月度销售统计") \'显示统计结果

MainTable = Tables("月度销售统计")

这样生成的统计表，没有把金额做累加，比如2016年1月，某个规格的产品有两行内容。希望是两张表2016年1月某个规格的产品在一行里，所有数量和金额做了合并累加。