procedure TForm2.LoadPhoto;
var
  S,FileName:String;
begin
      S:=   trim(form1.adoquery2.FieldByName('clientcode').AsString);
      FileName:='photo\' +  S +'.jpg';
      if   FileExists(FileName)   then
      begin
          PV.Picture.LoadFromFile(FileName);
      end
      else
      begin
          application.messagebox(pansichar(s+'文件不存在!'),'警告',16);
          //上处我想终止报表的生成
      end;
end;procedure TForm2.frxReport1BeforePrint(Sender: TfrxReportComponent);
begin
  loadphoto;
end;上面是本人编写的一段代码,希望如果这个图文件不存在的话就提示,然后终止报表生成,因为不终止的话,如果这个文件有N条不存在的话,那么这个弹出对话框就要跳出N次,我搜集了很多资料好像都不能解决,stopreport事件好像也不能使用,有没有哪位高手指点下,如何在没有这个图片文件的情况下终止报表的继续生成。