用dbgrideh1.selectrows procedure tform4.button6click(sender:tobject); var i:integer; begin for i:=0 to dbgrideh1.selectrows.count-1 do begin adoquery1.book:=dbgrideh1.selectrows[i]; frreport1.loadfromfile(extractfilepath(application.exename)+'my.frf'); frreport1.preparereport; frreport1.printpreparedreportdlg; end; end;
procedure tform4.button6click(sender:tobject);
var
i:integer;
begin
for i:=0 to dbgrideh1.selectrows.count-1 do
begin
adoquery1.book:=dbgrideh1.selectrows[i];
frreport1.loadfromfile(extractfilepath(application.exename)+'my.frf');
frreport1.preparereport;
frreport1.printpreparedreportdlg;
end;
end;