Hallo nochmals
bin ein wenig weiter..
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
db_list := ds.Value[list[i]]; // get field value by its name
if ['db_list'] = 'PERSONS' then DefaultPERSONS.Visible := true;
ds.Next;
end;
end;
if ['db_list'] ist in Klamern da dies anscheinend Notwenig ist.
Zitat:
Make sure when passing the variable a value if it is a string variable to
use extra apostrophe's ['myvariable'] = ''''+string+''''
or it will be an expression and trigger the ogv event.
Erhalte aber immer noch eine Fehlermeldung:
Invalid Variant Operation
PS: Bei dem Wert PERSONS geht es nicht um den Inhalt der Spalte sondern um den Splatennamen.