Dim b As New GroupTableBuilder("统计表1",DataTables("行政案件"))b.Groups.AddDef("办案部门")
Tables("统计_Table1").DataSource =b.BuildDataSource()With DataTables("统计_Table1").DataCols
.Add("款项",Gettype(Object), "Sum(IsNull([行政罚款],0))")End With
红色部分只能是列名