- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 统计表出现这种情况是怎么回事？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8011)
-- 发布时间：2010/8/29 16:50:00
-- 统计表出现这种情况是怎么回事？
对出库明细进行统计：
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 17:07:00
--
测试没发现你说的问题。
此主题相关图片如下：1.jpg
-- 发布时间：2010/8/29 18:04:00
--
怪事，我的项目上就有问题
-- 发布时间：2010/8/29 23:08:00
--
先别说问题，至少下面：
For Each c As Col In Tables("销量月报").cols
Tables("销量月报").AutoSizeCols
Next
应该简化为一行：
Tables("销量月报").AutoSizeCols
-- 发布时间：2010/8/30 8:42:00
--
将按钮代码改为：
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("销量月报")
测试后问题同我的第二幅图
试图传上例子，但是当我删除其它表，只保留出库明细表，并删除项目事件中的所有代码，一测试，正常。晕！
-- 发布时间：2010/8/30 8:50:00
--
保留整个项目上传，做好统计按钮
-- 发布时间：2010/8/30 9:15:00
--
狐爸QQ？
-- 发布时间：2010/8/30 9:19:00
--
呵呵，论坛就行了，如果保密，加密码压缩上传，短信告诉我密码
-- 发布时间：2010/8/30 9:39:00
--
-- 发布时间：2010/8/30 11:16:00
--
收到，我会抽空看看的