主题：新版本有关汇总代码不生效问题？

Dim t As Table = Tables("RS_统计报表_Table1")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn ="数量,金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()

GroupAboveData：逻辑型，该属性决定汇总模式下，分组行是否位于数据行之前，默认为False，设为True，分组行将位于数据行之前

TreeVisible：逻辑型，该属性决定在汇总模式下是否显示目录树，默认为False，设为True，将显示目录树

如果没有分组行和不用显示目录树，就不用写这两行

如果这样还看不到汇总行，那就要看你的示例了

是有这样的问题，请贺老师看看
如果有滚动条，就是说表格数据量大，那么汇总行就显示不出来（最后一行）