Dim g As New GroupTableBuilder("temp",DataTables("表A"))
g.Caption = "统计表 "
g.Groups.AddDef("工程名称")
g.Groups.AddDef("物料类别")
g.Groups.AddDef("类别名称")
g.Groups.AddDef("物料编号")
g.Groups.Adddef("物料名称")
g.Groups.Adddef("型号")
g.Groups.Adddef("计量单位")
g.Totals.Adddef("金额")
g.Build
MainTable=Tables("temp")
Dim t As Table = Tables("temp")
Dim gg As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True
gg = New Subtotalgroup
gg.Aggregate = AggregateEnum.Sum
gg.GroupOn = "工程名称"
gg.TotalOn = "金额"
gg.Caption = "{0} 小计"
t.SubtotalGroups.Add(gg)
t.Subtotal()