Hallo zusammen
Ich scheitere gerade an Fast Report. Und zwar können mehrere Reports gleichzeitig in verschiedenen Fastreportinstanzen geöffnet sein. Die Felder auf dem Reports greiffen alle auf das Dataset "reportdataset" zu. Dies wird aber erst zur Laufzeit erstellt und dem Report angehängt.
Delphi-Quellcode:
//TReporter ist eine abgeleitete Klasse von frxReport
constructor TReporter.Create(_owner: TComponent);
begin
Inherited;
FDBDataset:= TfrxDBDataset.Create(Self); //Ich erstelle hier das frxDBDataset, dem ich später ein "echtes" Dataset anhänge.
FDBDataset.Parent:= Self;
FDBDataset.Name:= 'reportdataset';
FDBDataset.UserName:= 'reportdataset';
Self.DataSet:= FDBDataset;
DataSets.Add( FDBDataset );
EnabledDataSets.Add( FDBDataset );
end;
procedure TReporter.ShowReport(_clearLastReport: Boolean);
begin
InternalPrepareReport;
Inherited ShowReport( _clearLastReport ); //Nun erscheint der Fehler
end;
procedure TReporter.InternalPrepareReport;
var
ds: TDataSet;
begin
//Wird ausgeführt wenn der Report geladen wurde und ShowReport oder PrepareReport aufgerufen wurde
if Assigned( FDBDataset.DataSet ) then begin
//Falls das Dataset existiert, wird es freigegeben
FDBDataset.DataSet.Free;
FDBDataset.DataSet:= nil;
end;
FDBDataset.DataSet:= TEDB.Instance.CreateDataset( FSQL ); //Hier wird ein TEDBDataset (ElevateDB) erstellt und zurückgegeben (Rückgabe ist vom Typ TDataSet). Das Dataset ist geöffnet und funktioniert.
end;
Wird jetzt ShowReport aufgerufen, wird im InternalPrepareReport das Dataset erstellt und dem bereits erstellten frxDBDataset zugewiesen. Dann erscheint aber der Fehler, dass das dataset "reportdataset" nicht existiert.
Wird im Create beim erstellen des frxDBDataSet kein Owner angegeben, funktioniert es. Allerdings gibt es später Probleme weil das Dataset irgendwie Global ist und nun verschiedene Datasets mit dem gleichen Namen existieren.
Hat da jemand eine Idee?
Herzlichen Dank!
RedOne