直接生成交叉统计表,再生成汇总模式: Dim g As New CrossTableBuilder("统计表1", DataTables("销售订单")) g.HGroups.AddDef("订单日期", DateGroupEnum.Day, "日期") g.HGroups.AddDef("客户名称") g.VGroups.AddDef("销售区域") g.Totals.AddDef("订单件数", "订单件数") g.Totals.AddDef("发货金额", "发货金额") g.VerticalTotal = True g.Build() MainTable = Tables("统计表1") Dim t As Table = Tables("统计表1") Dim g As SubtotalGroup g = New SubtotalGroup '定义一个新的分组 g.Aggregate = AggregateEnum.Sum '统计类型为求和 g.GroupOn = "客户名称" '分组列为客户 g.TotalOn = "订单件数,发货金额" '统计数量和金额列 g.Caption = "{0} 小计" '设置标题 t.SubtotalGroups.Add(g) '加到分组集合中 g = New SubtotalGroup g.Aggregate = AggregateEnum.Sum g.GroupOn = "*" '注意总计分组用符号*表示。 g.TotalOn = "订单件数,发货金额" g.Caption = "总计" t.SubtotalGroups.Add(g) t.GroupAboveData = True t.Subtotal() '生成汇总模式
|