Dim bd1 As New GroupTableBuilder("统计表1",DataTables("计算表"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("计算部位") '根据型号分组
bd1.Totals.AddDef("重量t") '对数量进行统计
bd1.Totals.AddDef("油漆面积㎡") '对面积进行统计
dt1 = bd1.BuildDataSource()
Tables("汇总_表").DataSource = dt1 '将统计结果绑定到Table
Tables("汇总_表").SetColVisibleWidth("计算部位|150|重量t|120|油漆面积㎡|120")