以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于分组统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88039)

--  作者:lk15502
--  发布时间:2016/7/25 16:27:00
--  关于分组统计
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("入库表"))
Dim dt1 As fxDataSource
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("品名") \'根据品名分组
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("品名") \'根据品名分组
bd3.Totals.AddDef("重量","出库_重量") \'对重量进行统计
bd3.Totals.AddDef("匹数","出库_匹数") \'对匹数进行统计
bd3.Subtotal = True
dt3 = bd3.BuildDataSource()

dt1.Combine("品名",dt2,"品名") \'将库存统计数据组合到入库统计数据
dt1.Combine("品名",dt3,"品名") \'将出库统计数据组合到入库统计数据

Tables("统计窗口_Table1").DataSource = dt1 \'将统计结果绑定到Table
 
上面的代码每个表增加了汇总模式,合并时只有入库的有合计,怎么把其他的两个也组合进去?

--  作者:大红袍
--  发布时间:2016/7/25 16:29:00
--  

直接对 统计窗口_Table1 设置汇总模式

 

http://www.foxtable.com/webhelp/scr/1372.htm