加上总计
打印不同月份的销售额,并且加上总计
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