●◎大写的页小计?◎●(100分)

  • 主题发起人 主题发起人 ynkmsun
  • 开始时间 开始时间
Y

ynkmsun

Unregistered / Unconfirmed
GUEST, unregistred user!
我用QReport的QRExpr可以得到页小计,我也有一个将小写金额转成大写的函数,但是现在不知道怎么把QRExpr得到的页小计金额转成大写的。
 
偶也想知道
 
可以对QRExpr1.Value应用你的函数.当然QRExpr1就不能显示了,加个qrlabel来帮忙:
qrlabel1.caption := ConvertFunction(QRExpr1.Value);
 
bryanwang, 不行啊,用这个方法也试了很多了!
 
用QRExpr的方式我没用过,但觉得原理可行(我会去试试),如果只为完成功能的话还有
笨办法,定义个变量自己汇总,
在Detailsband的afterprint中
Amt:= Amt+ dataset.fieldbyname('amt').asfloat;
在Pagefooter的beforeprint中
qrlabel1.caption := ConvertFunction(amt);
amt := 0;
这样总可以了吧?
 
bryanwang:自己汇总的方法可以,但我知道用QRExpr的方式怎么办
 
找到了,QRExpr.Onprint事件里处理!
procedure TForm1.QRExpr1Print(sender: TObject;
var Value: String);
begin
Value := ConvertFunction((Strtofloat(Value));
end;
 
bryanwang,谢谢啦,真是高人!
 
后退
顶部