主题：专业报表问题（已解决）

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") '根据产品进行分组
rt.Text= "[Fields!产品.Value]: [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()

不用绑定，直接计算

rt.Cells(1,0).Text = DataTables(“xxx”).Compute("Sum(列)", "条件表达式")。

类似：

http://www.foxtable.com/help/topics/1240.htm