Dim t As Table = Tables("窗口1_Table1")Dim g As New GroupTableBuilder("统计表2", t.DataTable)g.Filter = t.filterg.Groups.AddDef("计划日期缩写")g.Groups.AddDef("配送公司")g.Totals.AddDef("金额")g.Build()MainTable = Tables("统计表2")