Dim bd1 As New SqlGroupTableBuilder("统计表1", "出库明细")
Dim dt1 As fxDataSource
bd1.Groups.AddDef("品牌")'根据型号分组
'bd1.Groups.AddDef("出库商场")'根据型号分组
'bd1.Groups.AddDef("单价")'根据型号分组
bd1.Groups.AddDef("备注")'根据型号分组
bd1.Totals.AddDef("数量", "入库_数量")'对数量进行统计
bd1.Totals.AddExp("入库_金额", "数量*单价")'对金额进行统计
bd1.Filter = Filter
bd1.SubtotalLevel = 1
dt1 = bd1.BuildDataSource()
Dim bd2 As New SqlGroupTableBuilder("统计表2", "退货明细")
Dim dt2 As fxDataSource
bd2.Groups.AddDef("品牌")'根据型号分组
'bd2.Groups.AddDef("退货商场")'根据型号分组
bd2.Totals.AddDef("数量", "退货_数量")'对数量进行统计
bd2.Totals.AddExp("退货_金额", "数量*单价")'对金额进行统计
bd2.Filter = Filter1
dt2 = bd2.BuildDataSource()
……后面同样改