统计表出现这种情况是怎么回事？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 统计表出现这种情况是怎么回事？

共有12080人关注过本帖树形打印复制链接主题：统计表出现这种情况是怎么回事？

shixia

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：754 积分：6991 威望：0 精华：1 注册：2008/9/2 20:04:00

统计表出现这种情况是怎么回事？ 发帖心情

Post By：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 16:53:09编辑过]

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/8/29 17:07:00 [只看该作者]

测试没发现你说的问题。

此主题相关图片如下：1.jpg

shixia

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：754 积分：6991 威望：0 精华：1 注册：2008/9/2 20:04:00

Post By：2010/8/29 18:04:00 [只看该作者]

怪事，我的项目上就有问题

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2010/8/29 23:08:00 [只看该作者]

先别说问题，至少下面：

For Each c As Col In Tables("销量月报").cols
Tables("销量月报").AutoSizeCols
Next

应该简化为一行：

Tables("销量月报").AutoSizeCols

shixia

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：754 积分：6991 威望：0 精华：1 注册：2008/9/2 20:04:00

Post By：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("销量月报")

测试后问题同我的第二幅图

试图传上例子，但是当我删除其它表，只保留出库明细表，并删除项目事件中的所有代码，一测试，正常。晕！