对出库明细进行统计:
Dim g As New CrossTableBuilder("销量月报", DataTables("出库明细"))
g.HGroups.AddDef("客户")
g.VGroups.AddDef("出库日期", "{0}月")
g.VGroups.AddDef("出库日期", DateGroupEnum.Day, "{0}日")
g.Totals.AddDef("出库数量", "出库数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Filter = "[月] =" & Vars("统计月") '统计月为变量
g.FromServer = True
g.Build()
MainTable = Tables("销量月报")
For Each c As Col In Tables("销量月报").cols
Tables("销量月报").AutoSizeCols
Next
效果如下图,合计列跑中间来了
此主题相关图片如下:捕获.jpg
去掉以下代码后,效果如下图
For Each c As Col In Tables("销量月报").cols
Tables("销量月报").AutoSizeCols
Next
此主题相关图片如下:捕获.jpg
[此贴子已经被作者于2010-8-29 16:53:09编辑过]