主题：[求助]分组统计数据存在问题（已解决）

Dim sql As String = "select *,1 as aa from {工具清单}"

Dim b As New CrossTableBuilder("工具分类汇总",sql)

b.HGroups.AddDef("使用单位")

b.HGroups.AddDef("工具名称")

b.VGroups.AddDef("工具等级")

b.VGroups.AddDef("工具状态")

b.Totals.AddDef("aa")

b.HorizontalTotal = True

b.VerticalTotal = True

b.Subtotal = True

b.Build()

MainTable = Tables("工具分类汇总")

Tables("工具分类汇总").AutoSizeCols()