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月某个规格的产品在一行里,所有数量和金额做了合并累加。