加上总计

打印不同月份的销售额,并且加上总计

Dim doc As New PrintDoc
Dim
rt As New prt.RenderText
Dim
gg As New prt.DataBinding.Aggregate("GroupSum") '用于分组统计。
Dim
tg As New prt.DataBinding.Aggregate("TotalSum") '用于总计。

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)

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

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

rt = New prt.RenderText
rt
.Text= "总计: [Aggregates!TotalSum.Value]" '设置打印内容
doc.body.Children.Add(rt)

doc.Preview()

执行结果:


本页地址:http://www.foxtable.com/webhelp/topics/1263.htm