!!!delphi6的自带报表工具使用(负数转换正数)!!!

leilu 2003-08-12 10:29:11
我使用D6自带的报表工具生成报表时的数据有负数,我想把负数转换成正数,要在浏览的时候就显示正数,当然打印的也是正数。
...全文
44 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
BES 2003-08-13
  • 打赏
  • 举报
回复
TQRDBText 的 OnPrint事件中写入代码:

If StrToFloat(Value) < 0 then Value := FloatToStr(StrToFloat(Value)*(-1));
leilu 2003-08-13
  • 打赏
  • 举报
回复
to VVVVVVVA(aaaa)
怎样判断值<0 的,我的数据是用QRDBText12显示的。
WWWWA 2003-08-13
  • 打赏
  • 举报
回复
在打印内容所在BAND的BEFORE PRINT 事件中判断:
IF 值<0 THEN 显示:=值*(-1)
jbzj 2003-08-13
  • 打赏
  • 举报
回复
取绝对值不行吗?

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧