应该是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()