[Erledigt] DBLookUpCombobox

[MacWomble]

Hallo, ich habe eine DBLookupCombobox in meinem Programm. Nun möchte ich aus der Listsource ein weiteres Feld auslesen (nicht anzeigen).
Wie mache ich das?
Bsp:
Listsource:

OID (Integer
KontaktArt (String)
KontaktTyp (Integer)

Die Kontaktart wird angezeigt und übernommen (ist so OK), bei Auswahl soll aber ebenfalls der KontaktTyp übergeben werden.
Der KontaktTyp ist nicht eindeutig, d.h. ein Typ kann mehrfach vorhanden sein!

Code: Alles auswählen

Typ    Art
1        Telefon
2        Telefax
1        Mobil
3        eMail privat
3        eMail geschäftl.
4        URL privat
4        URL geschäftl

[gladio]

Wenn in der DBLookUpCombobox die 'Kontaktart' gewählt wird, stehen automatisch die dazugehörigen Datenfelder
des Datensatzes zur Verfügung.
Du kannst also den zugehörigen 'Kontakttyp' ganz einfach abgreifen.
Eventuell das dann im OnSelect oder OnCloseUp.

[MacWomble]

.. wenn es so einfach wäre.

Ich habe das schon versucht, aber es geht nicht.

Ich habe in beiden Ereignissen

ShowMessage(DBLookupComboBox1.ListSource.DataSet.FieldByName('kontakttyp').AsString);

eingetragen. Anscheinend zeigt er immer den ersten Datensatz an,

[gladio]

Es gibt im Lazarus-Verzeichnis ein Demo-Projekt:
Lazarus/examles/database/dblookup

Da habe ich mal das eingefügt:

Code: Alles auswählen

 
uses: ...., Dialogs, ....
 
procedure TForm1.DBLookupComboBox1Select(Sender: TObject);
begin
  if DBF1.Locate('MTH_NAME',DBLookUpComboBox1.Text, []) then
  showmessage(DBF1ID.AsString);
end;

Vielleicht wäre diese Variante eine Möglichkeit.

[MacWomble]

Danke, das hilft weiter. So geht es:

Code: Alles auswählen

procedure TfrmEditKontakt.DBLookupComboBox1Select(Sender: TObject);
begin
   if DBLookupComboBox1.ListSource.DataSet.Locate('kontaktart',DBLookUpComboBox1.Text, []) then
   ShowMessage(DBLookupComboBox1.ListSource.DataSet.FieldByName('kontakttyp').AsString);
end;