主题：组合多个统计

Dim bd1 As New GroupTableBuilder("统计表1", DataTables("计件统计"))

Dim dt1 As fxDataSource

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.Totals.AddDef("数量1", "数量") '对数量进行统计

bd2.Totals.AddDef("金额1", "金额") '对金额进行统计

dt2 = bd2.BuildDataSource()

Dim bd3 As New GroupTableBuilder("统计表3", DataTables("计件统计"))

Dim dt3 As fxDataSource

bd3.Groups.AddDef("姓名") '根据型号分组

bd3.Totals.AddDef("数量2", "数量") '对数量进行统计

bd3.Totals.AddDef("金额2", "金额") '对金额进行统计

dt3 = bd3.BuildDataSource()

dt1.Combine("姓名2", dt2, "姓名") '将销售统计数据组合到进货统计数据

dt1.Combine("姓名2", dt3, "姓名") '将退货统计数据组合到进货统计数据

Tables("窗口1_Table1").DataSource = dt1 '将统计结果绑定到Table

With DataTables("窗口1_Table1").DataCols '用表达式列计算库存数据

End With