Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
对出库明细进行统计:
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
效果如下图,合计列跑中间来了
For Each c As Col In Tables("销量月报").cols
Tables("销量月报").AutoSizeCols
Next
先别说问题,至少下面:
For Each c As Col In Tables("销量月报").cols
Tables("销量月报").AutoSizeCols
Next
应该简化为一行:
Tables("销量月报").AutoSizeCols
将按钮代码改为:
Dim g As New CrossTableBuilder("销量月报", DataTables("出库明细"))
g.HGroups.AddDef("客户")
g.VGroups.AddDef("出库日期", "{0}月")
g.VGroups.AddDef("出库日期", DateGroupEnum.Day, "{0}日")
g.Totals.AddDef("出库数量", "出库数量")
g.OrderByTotal = True
g.HorizontalTotal = True
g.VerticalTotal = True
g.Filter = "[月] =8" '出库明细中的数据有8月份数据
g.FromServer = True
g.Build()
MainTable = Tables("销量月报")
测试后问题同我的第二幅图
试图传上例子,但是当我删除其它表,只保留出库明细表,并删除项目事件中的所有代码,一测试,正常。晕!