CodePudding user response:
Need to send a code to see, just a preview of zombieCodePudding user response:
Page number too much? Or try to change the versionCodePudding user response:
If there is only one page is the same, if you want to build a project, then there is no this problem, the extremely depressed,,,,,,,,CodePudding user response:
Infinite loop, if there is other data sets scroll event code,CodePudding user response:
Carefully check just now, didn't write data sets of rolling, @ babydog01CodePudding user response:
You fastreprot used in variable assignment have infinite loop,Find your report in to a variable,
A set a breakpoint in frRepGetValue see whether to have infinite loop,
CodePudding user response:
Post code show,,,It is commonly hang a ado + fr +... , ok, preview:
Procedure TForm5. Button1Click (Sender: TObject);
Var
SPath: string;
The begin
SPath:=ExtractFilePath (Application. ExeName);
Self. FrReport1. The Clear;
Self. FrReport1. LoadFromFile (sPath + 'reports. FRF');
Self. FrReport1. ShowReport;
end;