Dim g As New GroupTableBuilder("统计表1", DataTables("表A")) g.Groups.AddDef("部门") g.Totals.AddDef("任务") g.Totals.AddDef("完成") g.FromServer = True g.Build DataTables("统计表1").DataCols.Add("完成率",Gettype(Double),"完成/任务") DataTables("统计表1").DataCols("完成率").SetFormat("00%") MainTable = Tables("统计表1")