Quickreport bleibt beim 2ten Aufruf leer

[onkel]

Meinst Du so?

Code:

procedure TForm23.QuickRep1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
  QuickRep1.DataSet:=Form22.ADOQuery1;
end;

Der gleiche Effekt