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