新版本有关汇总代码不生效问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 新版本有关汇总代码不生效问题？

共有19665人关注过本帖树形打印复制链接主题：新版本有关汇总代码不生效问题？

baoxyang

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

加好友

发短信

等级：狐精帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00

新版本有关汇总代码不生效问题？ 发帖心情

Post By：2010/3/22 11:11:00 [显示全部帖子]

Dim t As Table = Tables("库存捆包查询_Table1")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*" '注意总计分组用符号*表示.
g.TotalOn = "重量,件数"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()
以上代码不成功。之前版本可以的。代码没有改动过。

baoxyang

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

加好友

发短信

等级：狐精帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00

Post By：2010/3/22 16:09:00 [显示全部帖子]

以下是引用mr725在2010-3-22 13:07:00的发言：
应该这样吧：：：
Dim t As Table = Tables("库存捆包查询_Table1")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "要汇总的列"
g.TotalOn = "重量,件数"
g.Caption = "*" '注意总计分组用符号*表示.
t.SubtotalGroups.Add(g)
t.Subtotal()

新版改成这样了吗？我查查。

baoxyang

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

加好友

发短信

等级：狐精帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00

Post By：2010/3/22 16:13:00 [显示全部帖子]

mr725新版的汇总代码可以实现吗？

baoxyang

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

加好友

发短信

等级：狐精帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00

Post By：2010/3/23 8:34:00 [显示全部帖子]

我只是对整个表做一个总的合计。之前都是成功的，这次升级后就不行了。

baoxyang

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

加好友

发短信

等级：狐精帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00

Post By：2010/3/23 10:33:00 [显示全部帖子]

之前的效果，最后一行有汇总，新版之前最后没有了汇总。这个窗口没有动过代码。

此主题相关图片如下：未命名.gif

baoxyang

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

加好友

发短信

等级：狐精帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00

Post By：2010/3/23 10:53:00 [显示全部帖子]

以下是引用yangming在2010-3-23 10:44:00的发言：
Dim t As Table = Tables("RS_统计报表_Table1")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False 加上此二行不知用意。
t.TreeVisible = False
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn ="数量,金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()

按杨版以上代码修改后，还是看不汇总项。