COmbobox .....

← →
draculenok © (2002-02-19 12:51) [0]

Здравствуйте программеры!!!!!!
Для записи items для comboboxа пишу.....

begin with DBComboBox1 do begin Items.Clear; Table1.First; for i := 1 to Table1.RecordCount do begin Items.Add( Table1[ "поле" ] ); Table1.Next;
при этом у меня в базе по полю имеются одинаковые значение, но мне надо чтобы они в comboboxe не повторялись
не могу сообразить что мне вписывать!!! чтобы не повторялись значения....
помогите пожалуйста

← →
Fareader © (2002-02-19 13:22) [1]

Тогда лучше использовать Query и написать ему
select distinct tt from nn

Тогда дубликатов не будет

← →
vopros © (2002-02-19 13:44) [2]

И пиши лучше так
Table1.First; while not Table1.eod do begin Items.Add( Table1[ "поле" ] ); Table1.Next; end;

← →
vopros © (2002-02-19 13:47) [3]

Поправка не Table1.eod а table2.eof конечно.

← →
draculenok © (2002-02-19 14:01) [4]

Fareader >> на счет query я тоже думал а как потом его зпрос в items закинуть......

← →
MetallAdm © (2002-02-19 14:16) [5]

q0.Open;
q0.First;
While (not Q0.Eof) do
begin
s1:=Q0.FieldByName("dnach").AsString;
s2:=Q0.FieldByName("dkon").AsString;
s3:=q0.FieldByName("isCurrent").AsString;
Q0.Next;
stt:=s1+" - "+s2;
Cb1.Items.Add(stt);
If s3="1" Then
begin
Cb1.Text:=stt;
GlobDate:=ConvDate(stt);
end;
end;

Я пример бросил из своей проги
ну я не стал его попровлять но из запроса я думаю понятно как
в итемс вставить!

← →
Fareader © (2002-02-19 14:27) [6]

Согласен с MetallAdm ©

← →
draculenok © (2002-02-19 14:39) [7]

а это какие переменые?
GlobDate:=ConvDate(stt);

← →
Johnmen © (2002-02-19 14:40) [8]

Query1.Open;
while not Query1.EOF do begin;
Items.Add(Query1.FieldByName("поле".AsString);
Query1.Next;
end;

перед заполнением : ComboBox1.Clear;

Наверное имелось ввиду это:
Query1.FieldByName("поле").AsString;

Ну это не серьезно! Ты бы хоть вникал чего ты вставляешь в код!

Все спасибо всем!!!!!!!
извиняюсь за не знание ......

COmbobox ..... Найти похожие ветки