Dim g As New GroupTableBuilder("统计表1", DataTables("工程汇总表")) g.Groups.AddDef("施工单位") g.Totals.AddDef("工程造价") g.FromServer = True g.VerticalTotal = True g.Build() For Each dc As DataCol In DataTables("统计表1").dataCols If dc.IsNumeric Then dc.setFormat("#,##0.00") End If Next Tables("工程分析_Table1").datasource = g.BuildDataSource