主题：[求助]交叉表增加小计列（解决了）

一段交叉表代码，要求库存和领用各增加一列小计列，如何实现，请各位老师指教，谢谢。

Dim sql As String

sql = "Select *,1 As 计数 FROM {a}"

Dim b As New CrossTableBuilder("汇总",sql)

b.HGroups.AddDef("单位")

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

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

b.VGroups.AddDef("工具规格")

b.Totals.AddDef("计数")

b.HorizontalTotal = True

b.VerticalTotal = True

b.Build()

MainTable = Tables("汇总")

Tables("汇总").AutoSizeCols()