Fastreport mit Master und mehreren Detailbändern

[mkinzler]

Master:

SQL-Code:

select
  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);

Detail 1:

SQL-Code:

select
  l.FKAdressID,
  l.von,
  l.bis
from 
  logenaemter l
where 
  l.FKAdressID = :master;

Detail 2:

Code:

select 
  e.FKAdressID,
  e.Ehrung,
  e.EhrungAm
from
  Ehrungen e
where
  e.FKAdressID = :master;

Im AfterScroll des Masterdatasets dann:

Delphi-Quellcode:

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