主题：汇总统计问题

参考代码

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()

 就是设置汇总模式

http://www.foxtable.com/webhelp/scr/00144.htm

一样，对于生成的表，再设置一下汇总模式，不就行了？

不就是设置汇总模式吗？把汇总模式的代码拷贝出来放在你按钮代码的后面就行啊。