Fastreport mit Master und mehreren Detailbändern

[HPB]

Zitat von mkinzler:

Ich schrieb auch Master DataSet

Danke für den Rüffel.
Im frxdbdataset. Jawoll dort gibt es ein "AfterScroll.Ereignis"
Vielen Dank für Deine geduldige Hilfe.
Mit Gruß
HPB

[HPB]

Guten Tag mkinzler,
auch auf die gefahrhin zu nerven.
Ich habe es nun sogemacht wie Du es vorgeschlagen hast.
Aber nun bekomme ich die Fehlermeldung: "ibqryBrdDaten: Das Feld Adressid wurde nicht gefunden"
Auch wenn ich "adressis durch a.adressid" ersetze wird die Fehlermeldung ausgegeben.

ibqryBrdDaten ist eine TIBQuery-Komponente.

Code:

frxdbdtstAemter.ParamByName('master').Value := frxdbdtstAdressen.FieldByName('AdressID').Value;
frxdbdtstAemter.Refresh;
frxdbdtstEhrungen.ParamByName('master').Value := frxdbdtstAdressen.FieldByName('AdressID').Value;
frxdbdtstEhrungen.Refresh;

Da die "TfrxDBDataset-Komponente" kein .ParamByName kennt habe ich im
AfterScrollEreignis des Master-Datasets folgendes

Delphi-Quellcode:

 ibqryBrdAemter.ParamByName('master').Value :=
  ibqryBrdDaten.FieldByName('a.AdressID').Value;
 ibqryBrdAemter.Refresh;

Kann hier der Fehler liegen. Ich verzweifle bald. Ich verstehe einfach nicht was da los ist.
Vielleicht magst Du noch mal helfen.
Mit Gruß HPB

[mkinzler]

Das Feld muss noch in die Master-Abfrage übernommen werden:

SQL-Code:

select
  a.AdressID,
  a.Titel,
  a.name1,
  a.name2,
  a.Strasse,
  a.PLZ,
  a.Ort,
  a.Geborenam
from
  adressen a
where
  a.adressid in (15,920,1,20,2,22,1009);

Delphi-Quellcode:

ibqryBrdAemter.ParamByName('master').Value :=
  ibqryBrdDaten.FieldByName('AdressID').Value;
 ibqryBrdAemter.Refresh;

[HPB]

Zitat von mkinzler:

Das Feld muss noch in die Master-Abfrage übernommen werden:

SQL-Code:

select
  a.AdressID,
  a.Titel,
  a.name1,
  a.name2,
  a.Strasse,
  a.PLZ,
  a.Ort,
  a.Geborenam
from
  adressen a
where
  a.adressid in (15,920,1,20,2,22,1009);

Delphi-Quellcode:

ibqryBrdAemter.ParamByName('master').Value :=
  ibqryBrdDaten.FieldByName('AdressID').Value;
 ibqryBrdAemter.Refresh;

Das hätte ich auch selber erkennen können. Kann ich nur mit meiner nervosität entschuldigen.

Nun bekomme ich aber die Fehlermeldung aus Fastreport, das z. B. die ibqrybraemter geschlossen ist.
Die Queries öffnet doch Fastreport selber?? oder?
Wenn ich sie per Code öffne wird auch eine Fehlermeldung ausgegeben.
Weis Du was nun zu machen ist?? Hast Du nochmals einen Tipp??
Mit Gruß HPB

[mkinzler]

Entweder Standardwert füür Parameter vergeben oder statt Refresh Close/Open

Delphi-Quellcode:

ibqryBrdAemter.Close;
ibqryBrdAemter.ParamByName('master').Value :=
  ibqryBrdDaten.FieldByName('AdressID').Value;
 ibqryBrdAemter.Open;

[HPB]

Vielen Dank an alle die bei der Lösung mitgeholfen haben.
Mein besonder Dank gilt mkinzler für seine guldige und professionelle Hilfe.
Nun habe ich auch viel dazu gelernt.
Das Thema ist nun erledigt.
Gruß HPB