Hallo nochmals
leider hat sich da ein Fehler eingeschlichen.
Habe das bis jetzt nicht bemerkt. Es werden nicht mehr alle Datensätzte dargestellt.
Dies versuchte ich bis jetzt wie folgt zu lösen:
"bestehender" Code:
Delphi-Quellcode:
procedure DetailData1OnBeforePrint(Sender: TfrxComponent);
var
i: Integer;
ds: TfrxDataSet;
list: TStringList;
db_list: String;
begin
ds := Report.GetDataset('default');// username of ds
list := TStringList.Create;
ds.GetFieldList(list);
for i := 0 to list.Count -1 do
begin
if list[i]='PERSONS' then
begin
var_dist_persons.Visible := true; //Feld vorhanden
dist_persons.Visible := true;
end;
//
if list[i]='WORKER' then
begin
var_dist_worker.Visible := true;
dist_worker.Visible := true;
end;
//
if list[i]='PLACEMENT' then
begin
var_dist_placement.Visible := true;
dist_placement.Visible := true;
end;
//
if list[i]='BEDS' then
begin
var_dist_beds.Visible := true;
dist_beds.Visible := true;
end;
//
if list[i]='Q_GIDEONS' then
begin
var_dist_q_gideons.Visible := true;
dist_q_gideons.Visible := true;
end;
//
if list[i]='CAT' then
begin
var_dist_cat.Visible := true;
dist_cat.Visible := true;
end;
//
ds.Next;
end;
end;
versucht habe ich es so:
Delphi-Quellcode:
if list[i]='PERSONS' then
begin
var_dist_persons.Visible := true; //Feld vorhanden
dist_persons.Visible := true;
end
else var_dist_persons.Visible := false;
//
Dies natürlich bei jedem if list[i]= leider ohne Erfolg.
Die Datenbankabfrage ist garantiert ok.
Bin für einen Tipp dankbar.
Manfred