用FastReport.Studio.Site.v3.20.rar打印acess中的图片,怎么实现?(200分)

  • 主题发起人 主题发起人 lyy8848
  • 开始时间 开始时间
L

lyy8848

Unregistered / Unconfirmed
GUEST, unregistred user!
用FastReport.Studio.Site.v3.20.rar打印acess中的图片,怎么实现?
 
procedure TForm1.frReport1BeforePrint(Memo: TStringList;
View: TfrView);
begin
//加载照片
if View.Name = 'Picture2' then
if FileExists('photo/'+ado_dt1.FieldValues['bmh'] +'.jpg') then
TfrPictureView(View).Picture.LoadFromFile('photo/'+ado_dt1.FieldValues['bmh'] +'.jpg')
else
TfrPictureView(View).Picture.LoadFromFile('photo/1111111111.jpg')
end;
 
后退
顶部