主题：新版本有关汇总代码不生效问题？

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()
以上代码不成功。之前版本可以的。代码没有改动过。

请提供简单的样表和少量数据供测试

应该这样吧：：：
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()

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

看帮组：设置汇总模式 ，这是标准的啊～  不可能对*号列做汇总吧，你那样只是对整个表做一个总的合计。
你要的结果是怎样的呢？ 贴个图来看看，

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

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

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

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()

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