“荣誉档案”表共有字段14个,汇总后保留3个,即“分类号”,“保管号”,“载体数量”。
按“分类号”汇总统计“”载体数量。
汇总后“小计总计”过大约半分钟就自动消失了,什么情况
以下内容为程序代码:
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) '显示最后一行
?