Feld in DBComboBox auf Unique überprüfen und eintragen

[ATS3788]

if DBCoEdLOCATION.Items.IndexOf( DataModule1.ZQuery3LOCATION.Value) > -1 then Leider kommt da immer "-1" raus !

[Dejan Vu]

Da hat sich der Markus wohl vertippt. mach mal ein '=' draus, oder denk drüber nach, was der Code eigentlich machen soll. Dann wärst Du auch alleine drauf gekommen. Übrigens solltest Du dein FELD 'LOCATION' auslagern. Erstelle also eine Tabelle 'Locations' mit zwei Feldern (ID, Beschreibung), pack dort alle möglichen LOCATION-Werte rein (und gib ihnen eine eindeutige ID). In deiner Haupttabelle trägst Du nun in das Feld LOCATION die passende ID aus der 'Locations' Tabelle ein.

Auf diese Weise hast Du in der Locations Tabelle automatisch alle vorkommenden Werte und damit auch sofort die Werte in deiner DBLookup-Combobox. Diese *zeigt* die Beschreibung aus der Locations-Tabelle an, aber setzt den entsprechenden ID-Wert.

[ATS3788]

Dejan Vu
da hast Du recht

Danke