主题：汇总统计问题

参考代码

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.Average
g.GroupOn = "类别"
g.TotalOn = "语文,数学,英语,政治,历史,物理,化学,生物,地理,思品,科学,综合,总分"
g.Caption = "{0} 平均"
t.SubtotalGroups.Add(g)

g = New SubtotalGroup
g.Aggregate = AggregateEnum.Average
g.GroupOn = "年级"
g.TotalOn = "语文,数学,英语,政治,历史,物理,化学,生物,地理,思品,科学,综合,总分"
g.Caption = "{0} 平均"
t.SubtotalGroups.Add(g)

g = New SubtotalGroup
g.Aggregate = AggregateEnum.Average
g.GroupOn = "考试名称"
g.TotalOn = "语文,数学,英语,政治,历史,物理,化学,生物,地理,思品,科学,综合,总分"
g.Caption = "{0} 平均"
t.SubtotalGroups.Add(g)

t.Subtotal()