Dim bd1 As New GroupTableBuilder("统计表1",DataTables("入库表"))
Dim dt1 As fxDataSource
'bd1.groups.adddef("入库日期统计",Dategroupenum.year,"年") '添加入库日期统计用于分组,列名是年
bd1.groups.adddef("入库日期统计","月份") '添加入库日期统计用于分组,列名是月份
bd1.Groups.AddDef("品名") '根据品名分组
bd1.Totals.AddDef("重量","入库_重量") '对重量进行统计
bd1.Totals.AddDef("匹数","入库_匹数") '对匹数进行统计
bd1.Subtotal = True '生成汇总模式
dt1 = bd1.BuildDataSource()
Dim bd2 As New GroupTableBuilder("统计表2",DataTables("库存表"))
Dim dt2 As fxDataSource
'bd2.groups.adddef("入库日期统计",Dategroupenum.year,"年") '添加入库日期统计用于分组,列名是年
bd2.groups.adddef("入库日期统计","月份") '添加入库日期统计用于分组,列名是月份
bd2.Groups.AddDef("品名") '根据品名分组
bd2.Totals.AddDef("重量","库存_重量") '对重量进行统计
bd2.Totals.AddDef("匹数","库存_匹数") '对匹数进行统计
bd2.Subtotal = True '生成汇总模式
dt2 = bd2.BuildDataSource()
Dim bd3 As New GroupTableBuilder("统计表3",DataTables("出库表"))
Dim dt3 As fxDataSource
'bd3.groups.adddef("出库日期统计",Dategroupenum.year,"年") '添加入库日期统计用于分组,列名是年
bd3.groups.adddef("出库日期统计","月份") '添加入库日期统计用于分组,列名是月份
bd3.Groups.AddDef("品名") '根据品名分组
bd3.Totals.AddDef("重量","出库_重量") '对重量进行统计
bd3.Totals.AddDef("匹数","出库_匹数") '对匹数进行统计
bd3.Subtotal = True '生成汇总模式
dt3 = bd3.BuildDataSource()
dt1.Combine("入库日期统计,品名",dt2,"入库日期统计,品名") '将库存统计数据组合到入库统计数据
dt1.Combine("入库日期统计,品名",dt3,"出库日期统计,品名") '将出库统计数据组合到入库统计数据
'dt1.combine("年",dt2,"年")
'dt1.combine("年",dt3,"年")
'dt1.combine("月份",dt2,"月份")
'dt1.combine("月份",dt3,"月份")
Tables("统计窗口_Table1").DataSource = dt1 '将统计结果绑定到Table
加好友 
发短信
Post By：2016/7/25 15:17:00 [只看该作者]
