以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问分组汇总模式的层数设置的显示结果为什么与帮助说明里的不一致？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61008)
--  作者：Bin
--  发布时间：2014/12/5 9:33:00
--  
你这不是已经生成小计了么
--  作者：有点甜
--  发布时间：2014/12/5 9:53:00
--  
 现在不是根据系统编号么
--  作者：有点甜
--  发布时间：2014/12/5 9:55:00
--  
 测试，没有你所说的倒过来的情况
--  作者：有点甜
--  发布时间：2014/12/5 10:01:00
--  
 做例子上来，我测试没问题
--  作者：有点甜
--  发布时间：2014/12/5 10:12:00
--  
以下是引用mojunming在2014-12-5 10:06:00的发言：

是不是跟排序有关系？

 

你还设置了排序么？你取消看看
--  作者：有点甜
--  发布时间：2014/12/5 10:15:00
--  

 例子，请上传。

 
--  作者：有点甜
--  发布时间：2014/12/5 10:32:00
--  
那你就单独做一个简单的例子，肯定不会有此问题的。
[此贴子已经被作者于2014-12-5 10:31:55编辑过]
--  作者：有点甜
--  发布时间：2014/12/5 11:15:00
--  

 应该是bug，换一种思路吧

 

Dim b As New GroupTableBuilder("工程进度报表",DataTables("订单"))

b.Groups.AddDef("产品") \'添加日期列用于分组,并用"年"代替原名称
b.Groups.AddDef("客户")
b.Groups.AddDef("雇员") \'添加日期列用于分组,并用"年"代替原名称
b.Totals.AddDef("数量",AggregateEnum.Sum,"总量")
b.Totals.AddDef("金额",AggregateEnum.Sum,"总金额")
b.Build

Dim t As Table = Tables("工程进度报表")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "产品"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

t.Subtotal()