主题：专业报表_分组统计问题

求教： 在专业报表的分组统计中时，用如下代码可以正常输出报表结果，但是用最后两行释代码替代就无正确的报表输出。

是那里写错了吗？

 

 

 

Dim Agg1 As New prt.DataBinding.Aggregate("cqsjSum")

Dim Agg2 As New prt.DataBinding.Aggregate("ybjsSum")                 

 

agg1.DataBinding = ra.DataBinding

agg1.Running = 1                                                  '分组统计

agg1.Expressi = “Fields!cqsj.value"                     '统计字段

doc.DataSchema.Aggregates.Add(agg1)              '定义好的统计必须添加到报表的DataSchema中

 

agg2.DataBinding = ra.DataBinding

agg2.Running = 1                                                   '分组统计

agg2.Expressi =  “Fields!ybjs.value"       '统计字段

doc.DataSchema.Aggregates.Add(agg2)               '定义好的统计必须添加到报表的DataSchema中

 

 

'doc.DataSchema.Aggregates.Add(New prt.DataBinding.Aggregate("cqsjsum", "Fields!cqsj.Value", ra.DataBinding, 1, 0))

'doc.DataSchema.Aggregates.Add(New prt.DataBinding.Aggregate("ybjssum", "Fields!ybjs.Value", ra.DataBinding, 1, 0))

代码发送不知何故有问题！

少的内容我已手写补录到一楼代码中！

怎么回事？ 代码粘贴发送前完整的，发送后就自已少了内容 ，重来还是一样！！！！

我测试这里没问题 http://www.foxtable.com/webhelp/scr/1267.htm

 

做一个对应实例发上来测试。