按月分组统计

下面的代码，统计不同月份的销售额：

Dim doc As New PrintDoc
Dim rt As New prt.RenderText
Dim Agg As New prt.DataBinding.Aggregate("GroupSum") '新定义统计的名称为GroupSum，名称随意即可。

rt.DataBinding.DataSource = BindTables("订单") '将容器绑定到订单表
rt.DataBinding.Grouping.Expressions.Add("Fields!日期.Value.Month") '根据月份进行分组
rt.Text= "[Fields!日期.Value.Month]月: [Aggregates!GroupSum.Value]" '设置打印内容
doc.body.Children.Add(rt)

agg.DataBinding = rt.DataBinding 'Agg的DataBinding属性，应该设为打印对象的DataBinding
agg.Running = 1 '分组统计
agg.ExpressionText = "Fields!数量.Value" '统计字段
doc.DataSchema.Aggregates.Add(agg)'定义好的统计必须添加到报表的DataSchema中

doc.Preview()

执行结果：