-- 作者:小美菜
-- 发布时间:2018/3/20 13:14:00
--
SQLGroupTableBuilder可以这样用吗? Dim bd1 As New SQLGroupTableBuilder("统计表1",DataTables("进货单")) Dim dt1 As fxDataSource bd1.AddTable("进货单","进货名称","进货单位","单位名称") bd1.Groups.AddDef("品名") \'根据品名分组 bd1.Groups.AddDef("型号") \'根据型号分组 bd1.Totals.AddDef("数量","进货_数量") \'对数量进行统计 bd1.Totals.AddDef("金额","进货_金额") \'对金额进行统计 dt1 = bd1.BuildDataSource() Dim bd2 As New SQLGroupTableBuilder("统计表2",DataTables("销售单")) Dim dt2 As fxDataSource bd2.Groups.AddDef("品名") \' bd2.AddTable("进货单","进货名称","进货单位","单位名称")根据品名分组 bd2.Groups.AddDef("型号") \'根据型号分组 bd2.Totals.AddDef("数量","销售_数量") \'对数量进行统计 bd2.Totals.AddDef("金额","销售_金额") \'对金额进行统计 dt2 = bd2.BuildDataSource() Dim bd3 As New SQLGroupTableBuilder("统计表3",DataTables("退货单")) Dim dt3 As fxDataSource bd3.AddTable("进货单","进货名称","进货单位","单位名称") 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") \'显示统计结果
|