procedure TForm1.Query1AfterScroll(DataSet: TDataSet);
begin
if DataSet.Eof then
begin
QuickRep1.NewPage;
DataSet.Close;
TQuery(DataSet).SQL.Text := '……';
DataSet.Open;
DataSet.AfterScroll := nil;
end;
end;
procedure TForm1.Query1AfterScroll(DataSet: TDataSet);
begin
if DataSet.Eof then
begin
DataSet.Close;
TQuery(DataSet).SQL.Text := '……';
DataSet.Open;
DataSet.AfterScroll := nil;
end;
end;