Einzelnen Beitrag anzeigen

manfred_h

Registriert seit: 4. Nov 2005
Ort: Basel
442 Beiträge
 
Delphi XE2 Enterprise
 
#12

Re: Fastreport Objekt in abhängikeit von DB Feld

  Alt 11. Mai 2009, 18:45
Das wars!! Danke mkinzler

Delphi-Quellcode:
procedure DefaultPERSONSOnBeforePrint(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.IndexOf('Persons') > -1 then //Feld vorhanden
      DefaultPERSONS.Visible := true;
   ds.Next;
  end;
end;
Shalom
Manfred
  Mit Zitat antworten Zitat