主题：[求助]汇总后“小计总计”行自动消失，请问怎么回事？

1、开发者密码呢？ 没有这个，其他人打不开你的文件的。

2、为了避免其他代码影响此表，你可以如下修改你的统计代码看看：

1 Dim g As New GroupTableBuilder("荣誉档案汇总表", DataTables("荣誉档案"))
2 g.Groups.AddDef("分类号")
3 g.Groups.AddDef("保管号")
4 g.Totals.AddDef("载体数量")
5 'g.VerticalTotal = True
6 g.Build()
7 MainTable = Tables("荣誉档案汇总表")
8
9 MainTable.ShowCell(0, 0) '显示第一行
10 MainTable.Focus()
11
12 Dim t As Table = Tables("荣誉档案汇总表")
13 Dim g1 As Subtotalgroup
14 t.StopRedraw()
15 t.SubtotalGroups.Clear()
16 t.GroupAboveData = False
17 t.TreeVisible = False
18 t.SpillNode = True
19
20 g1 = New Subtotalgroup
21 g1.Aggregate = AggregateEnum.Sum
22 g1.GroupOn = "分类号"
23 g1.TotalOn = "载体数量"
24 g1.Caption = "{0} 小计"
25 t.SubtotalGroups.Add(g1)
26
27 g1 = New Subtotalgroup
28 g1.Aggregate = AggregateEnum.Sum
29 g1.GroupOn = "*"
30 g1.TotalOn = "载体数量"
31 g1.Caption = "总计"
32 t.SubtotalGroups.Add(g1)
33
34 t.Subtotal()
35 t.ResumeRedraw()
36 t.ShowCell(t.Rows.Count(True) - 1, 0) '显示最后一行