主题：如何将每个分组加个合计

生成统计之后，再设置汇总模式，不就好了？如代码

Dim t As Table = Tables("窗口1_Table1")
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.TotalOn = "预算下达_金额,实际支付_金额,收支_结余"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "预算下达_金额,实际支付_金额,收支_结余"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()