Probaj ovako:
Code:
SQL = "SELECT DISTINCT artikal FROM ulaz_repromaterijala;"
Combo1.Clear
For BrojacArtikala=0 to rs.RecordCount-1
if BrojacArtikala=0 then
rs.MoveFirst
else
rs.MoveNext
endif
Combo1.AddItem rs.Fields.Item(0).Value
'Combo1.ItemData(BrojacArtikala) = BrojacArtikala
next BrojacArtikala
Sa DISTINCT si povukao samo nazive artikala, tako da je rs u stvari tabela sa samo jednom kolonom, što ti dođe da je rs.Fields.Item(0).Value u stvari artikal.
Combo.ItemData(ListIndex) predstavlja neku LongInteger vrednost, i obicno služi da u nju turiš primary key iz baze, ili neki redni broj(bolje primary key u multiuser okruženjima od rednog broja)
Ono što si ti verovatno želeo je:
Code:
SQL = "SELECT DISTINCT ID,artikal FROM ulaz_repromaterijala;
i tada bi imao kao rezultat tabelu=rs koji ima dve kolone ID,Artikal, pa bi išlo:
Code:
Combo1.AddItem rs.Fields.Item(1).Value
Combo1.ItemData(BrojacArtikala) =rs.Fields.Item(0).Value
Vodi računa da kada ovo radiš, Property SORTED treba da bude FALSE! da bi ID ili Šifra ili šta već nalegla na zapis koji si zadnji stavio u combobox, jer sorted zna da izmeša :)
I naravno ograničenje ComboBox-a na 32K artikala (ako je u opšte i bitno)...