Einzelnen Beitrag anzeigen

Hausmarke

Registriert seit: 5. Apr 2013
Ort: Sachsen
47 Beiträge
 
Delphi 2007 Professional
 
#1

LookUp feld zur laufzeit erstellen

  Alt 29. Mai 2013, 09:21
Datenbank: Firebird • Version: 2.1 • Zugriff über: TIBDatabase
Hallo Leute,

ich habe ein objekt in welchem ich dynamisch alle komponenten erzeuge die man für den zugriff auf eine Datenbank benötigt.
Soweit funktioniert das auch ganz gut, und ich kann die Daten in einem Grid ausgeben.
Nun möchte ich in dem DataSet, welches im grid abgebildet wird, mehrere LookUp felder einfügen, so wie man das äußerst easy zur Entwurfszeit machen kann.

Aktuell bin ich soweit:

Delphi-Quellcode:
  f := TStringField.Create(DSetDaten);
  with f do
  begin
    Name := DSetDaten.Name + FieldName;
    Size := 50;
    DisplayLabel := 'FieldNachschlagen';
    DisplayWidth := 21;
    FieldName := 'FieldNachschlagen';
    FieldKind := fkLookup;
    Lookup:=True;
    LookupDataSet := DSetInfos;
    KeyFields := 'INFOID';
    LookupKeyFields := 'ID';
    LookupResultField := 'Info';
    DataSet := DSetDaten;
    Index := 2;
  end;
nur leider bringt er mir den fehler das er "INFOID" nicht finden kann.

Woran könnte das liegen, denn dieses Feld existiert, und zur Entwurfszeit in der komponente konfiguriert funktioniert es auch.

gibt es evtl. einen einfacheren weg ein lookup feld in ein dataset zu bekommen?
  Mit Zitat antworten Zitat