Dim t As Table = Tables("支出明细_table1") Dim g As Subtotalgroup t.SubtotalGroups.Clear() g = New Subtotalgroup '定义一个新的分组 g.Aggregate = AggregateEnum.Sum '统计类型为求和 g.GroupOn = "*" '注意总计分组用符号*表示. g.TotalOn = "支出金额" '统计数量和金额列 g.Caption = "合计" '设置标题 t.SubtotalGroups.Add(g) '加到分组集合中 t.Subtotal() '生成汇总模式