- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 新版本有关汇总代码不生效问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6271)
-- 发布时间：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()
以上代码不成功。之前版本可以的。代码没有改动过。
-- 发布时间：2010/3/22 11:51:00
--
请提供简单的样表和少量数据供测试
-- 发布时间：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()
-- 发布时间：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()
应该这样吧：：：
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()
新版改成这样了吗？我查查。
-- 发布时间：2010/3/22 16:13:00
--
mr725新版的汇总代码可以实现吗？
-- 发布时间：2010/3/22 18:15:00
--
以下是引用baoxyang在2010-3-22 16:13:00的发言：
mr725新版的汇总代码可以实现吗？
看帮组：设置汇总模式 ，这是标准的啊～ 不可能对*号列做汇总吧，你那样只是对整个表做一个总的合计。
你要的结果是怎样的呢？ 贴个图来看看，
-- 发布时间：2010/3/23 8:34:00
--
我只是对整个表做一个总的合计。之前都是成功的，这次升级后就不行了。
-- 发布时间：2010/3/23 10:33:00
--
之前的效果，最后一行有汇总，新版之前最后没有了汇总。这个窗口没有动过代码。
此主题相关图片如下：未命名.gif
-- 发布时间：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()
-- 发布时间：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()
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()
按杨版以上代码修改后，还是看不汇总项。