希望用打印后台数据的方式进行分组统计，代码怎么改？
Dim doc As New PrintDoc
Dim rt As New prt.RenderText
Dim cmd As New SQLCommand '定义一个SQL命令
Dim dt As DataTable '定义一个数据表变量
Dim Count As Integer = 0
cmd.CommandText = "Select * From {订单} Where Year(日期) = 2014 "
dt = cmd.ExecuteReader() '生成一个临时表
Dim Agg As New prt.DataBinding.Aggregate("GroupSum") '新定义统计的名称为GroupSum,名称随意即可.
rt.DataBinding.DataSource = BindTables(dt) '这里不是要绑定到临时表吗？
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.Expressi '统计字段
doc.DataSchema.Aggregates.Add(agg)'定义好的统计必须添加到报表的DataSchema中
doc.Preview()
加好友 
发短信
Post By：2014/6/13 14:55:00 [显示全部帖子]
此主题相关图片如下：1553.png