Dim Ckbs As String = DataTables("出库表").getcomboliststring("入库编号")
Ckbs = "('"& ckbs.replace("|","','") & "')"
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("入库表"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("品名大类") '根据品名大类分组
bd1.Totals.AddDef("重量","入库_重量") '对重量进行统计
bd1.Totals.AddDef("匹数","入库_匹数") '对匹数进行统计
bd1.fromserver = True
bd1.filter = "[入库编号] = in " & cbks
dt1 = bd1.BuildDataSource()
。。。。。