| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 专业报表_分组统计问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134799) |
| -- 作者：lzgt -- 发布时间：2019/5/6 17:48:00 -- 专业报表_分组统计问题 求教： 在专业报表的分组统计中时，用如下代码可以正常输出报表结果，但是用最后两行释代码替代就无正确的报表输出。 是那里写错了吗？
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)) [此贴子已经被作者于2019/5/6 17:58:55编辑过]
|
| -- 作者：lzgt -- 发布时间：2019/5/6 17:49:00 -- 代码发送不知何故有问题！ [此贴子已经被作者于2019/5/6 17:59:52编辑过]
|
| -- 作者：lzgt -- 发布时间：2019/5/6 17:54:00 -- 少的内容我已手写补录到一楼代码中！ [此贴子已经被作者于2019/5/6 18:01:09编辑过]
|
| -- 作者：lzgt -- 发布时间：2019/5/6 17:57:00 -- 怎么回事？ 代码粘贴发送前完整的，发送后就自已少了内容 ，重来还是一样！！！！ |
| -- 作者：有点甜 -- 发布时间：2019/5/6 18:05:00 -- 我测试这里没问题 http://www.foxtable.com/webhelp/scr/1267.htm
做一个对应实例发上来测试。 |