我的一个报表很怪,显示第一次提示字段没找到,再显示一次就正常了??
我的一个报表很怪,点打印按钮显示第一次提示字段没找到,再点一次打印按钮显示一次就正常了??
真是怪??哪位大侠帮看看.我的QQ:258041655 可以连上我的机子,看看效果.望你的连线!!!
打印代码:
//票据打印
procedure TPayClass.N2Click(Sender: TObject);
var ff:real;
begin
with dm.DataModule1.PaySet do
begin
ADODataSet1.CommandType:=cmdText;
ADODataSet1.CommandText:=Format('select * from v_Invoice where yhcode=''%s'''+
' and paytime=''%s''',[FieldByName('yhcode').AsString,FieldByName('paytime').AsString]);
ADODataSet1.Open;
end;
if ADODataSet1.RecordCount>0 then
begin
daxie:=Format('%.2f',[ADODataSet1.FieldByName('payamount').AsFloat]);
showmessage(daxie);
daxie:=self.XiaoXieToDaXie(daxie); //小写转换成大写
frxReport1.LoadFromFile('.\report\USE_SHEET1.fr3');
frxReport1.ShowReport();
end;
end;