水晶报表分页汇总
建三个公式字段,第一个(公式1)输入下面的公式:
whileprintingrecords;
global numbervar ptotal;
ptotal:=0;
第二个(公式2)输入下面的公式:
whileprintingrecords;
global numbervar ptotal;
ptotal := ptotal + [要汇总的字段];
如果要汇总的字段不是数字,就用tonumber()函数转换;
第三个(公式3)输入下面的公式:
whileprintingrecords;
global numbervar ptotal;
把公式1放在页眉,公式2放在详细资料,并隐藏公式1和公式2;把公式3放在页脚,格式公式3,设置为你要显示的格式。这样就行了。
水晶报表分页并自动插入空白行
在论坛上经常会看到水晶报表分页的问题,这个很好解决。
但是自动插入空白行的问题却一直没有很好的答案,
经过研究找到一个变通的办法来实现了。
'分页
在详细资料上点格式化节,在后面页新建页打勾
公式中输入:
if onlastrecord then
FORMULA = FALSE
else
if RecordNumber mod 5 =0 then
FORMULA = TRUE
else
FORMULA = FALSE
end if
end if
'(BASIC 语法)
---------------------------------------------------------------------
最后页不足,用空行填充:
新增一个空白详细资料行,格式化此节,在抑制显示(无深化)打勾
公式中输入:
if not onlastrecord then
FORMULA = TRUE
else
if (RecordNumber mod 5 <= 1) then '第一个,1
FORMULA = TRUE
else
FORMULA = FALSE
end if
end if
'(BASIC 语法)
...接着第二个[ 新增一个空白详细资料行,格式化此节,在抑制显示(无深化)打勾 ]:
公式中输入:
if not onlastrecord then
FORMULA = TRUE
else
if (RecordNumber mod 5 <= 2) then '第二个,2
FORMULA = TRUE
else
FORMULA = FALSE
end if
end if
...接着第三个[ 新增一个空白详细资料行,格式化此节,在抑制显示(无深化)打勾 ]:
公式中输入:
if not onlastrecord then
FORMULA = TRUE
else
if (RecordNumber mod 5 <= 3) then '第三个,3
FORMULA = TRUE
else
FORMULA = FALSE
end if
end if
在论坛上经常会看到水晶报表分页的问题,这个很好解决。
但是自动插入空白行的问题却一直没有很好的答案,
经过研究找到一个变通的办法来实现了。
'分页
在详细资料上点格式化节,在后面页新建页打勾
公式中输入:
if onlastrecord then
FORMULA = FALSE
else
if RecordNumber mod 5 =0 then
FORMULA = TRUE
else
FORMULA = FALSE
end if
end if
'(BASIC 语法)
---------------------------------------------------------------------
最后页不足,用空行填充:
新增一个空白详细资料行,格式化此节,在抑制显示(无深化)打勾
公式中输入:
if not onlastrecord then
FORMULA = TRUE
else
if (RecordNumber mod 5 <= 1) then '第一个,1
FORMULA = TRUE
else
FORMULA = FALSE
end if
end if
'(BASIC 语法)
...接着第二个[ 新增一个空白详细资料行,格式化此节,在抑制显示(无深化)打勾 ]:
公式中输入:
if not onlastrecord then
FORMULA = TRUE
else
if (RecordNumber mod 5 <= 2) then '第二个,2
FORMULA = TRUE
else
FORMULA = FALSE
end if
end if
...接着第三个[ 新增一个空白详细资料行,格式化此节,在抑制显示(无深化)打勾 ]:
公式中输入:
if not onlastrecord then
FORMULA = TRUE
else
if (RecordNumber mod 5 <= 3) then '第三个,3
FORMULA = TRUE
else
FORMULA = FALSE
end if
end if
...(同理第四个,即最后5-1个)
(注:此方法适用于行数较少,上面是为5行为例,不过不觉得麻烦,对行数较多也可以用)...(同理第四个,即最后5-1个)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
更新日志
- 群星《妖神令 影视原声专辑》[320K/MP3][85.23MB]
- 逆水寒手游五子棋第二十三关怎么过 逆水寒手游残局攻略大全
- 逆水寒手游五子棋第二十二关怎么过 逆水寒手游残局攻略大全
- 欢乐钓鱼大师最稀有的鱼是什么 欢乐钓鱼大师最稀有的鱼攻略
- ABC唱片-《蔡琴.三十周年纪念版》6N纯银镀膜[WAV+CUE]
- ABC唱片-《汉斯.德斯辛克.心中布鲁斯》6N纯银镀膜[WAV+CUE]
- 群星《DJ·夜色魅影HQ》头版限量[低速原抓WAV+CUE]
- 《如龙》桐生声优被警察拦下盘问:你有犯罪记录吗?
- 游族2023年净利润0.91亿元 《少年西游记2》即将公测
- 曝快手北京游戏事业部全数被裁 项目测试数据未达标
- 李雨寰.2012-我可是天使【有凰音乐】【WAV+CUE】
- 刘美君.1991-听我细诉【BMG】【WAV+CUE】
- 群星.2016-滚石爱情故事3CD【滚石】【WAV+CUE】
- 欢乐钓鱼大师怎么解锁全地图 欢乐钓鱼大师全地图解锁方法
- 欢乐钓鱼大师锦标赛在哪里进 欢乐钓鱼大师锦标赛入口位置介绍