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