P
panzichan
Unregistered / Unconfirmed
GUEST, unregistred user!
我有一字段'bqfje'为本期付金额,我想在付款单报表中显示为大写人民币,要调用函数ToBigRMB(),
但为何得不出效果,报表控件为TQuickRep,该如何解决?
procedure Tfrmskhkb_mxbReport.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
frmSkhkb_mxb.ADOQuery1.First;
if not frmSkhkb_mxb.ADOQuery1.Eof then
begin
frmskhkb_mxbReport.QRLabel6.Caption:=ToBigRMB(frmSkhkb_mxb.ADOQuery1.FieldByName('bqfje').AsString);
frmSkhkb_mxb.ADOQuery1.Next;
MoreData:=true;
end else
MoreData:=false;
end;
但为何得不出效果,报表控件为TQuickRep,该如何解决?
procedure Tfrmskhkb_mxbReport.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
frmSkhkb_mxb.ADOQuery1.First;
if not frmSkhkb_mxb.ADOQuery1.Eof then
begin
frmskhkb_mxbReport.QRLabel6.Caption:=ToBigRMB(frmSkhkb_mxb.ADOQuery1.FieldByName('bqfje').AsString);
frmSkhkb_mxb.ADOQuery1.Next;
MoreData:=true;
end else
MoreData:=false;
end;
]