一段交叉表代码,要求库存和领用各增加一列小计列,如何实现,请各位老师指教,谢谢。
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()
[此贴子已经被作者于2014-5-28 19:58:29编辑过]