SubtotalGroup 分组汇总 Post By:2009/6/25 9:48:00 [显示全部帖子]
Dim g As New SubtotalGroup '定义一个新的分组 g.Aggregate = AggregateEnum.Sum '统计类型为求和 g.GroupOn = "币制" g.TotalOn = "余额" g.Caption = "{0} 小计" With Tables("对帐表") .SubtotalGroups.Clear() '清除原有的分组 .SubtotalGroups.Add(g) '加入刚刚定义的分组 .Subtotal '生成汇总模式 End With