Форум: "Базы";
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];

Вниз

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;

---

← →
Johnmen   (2002-02-19 14:47) [9]

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

---

← →
draculenok   (2002-02-19 14:51) [10]

Johnmen ©
[Error] Unit1.pas(370): Record, object or class type required
вот такую ерунду пишет где asstring

---

← →
Fareader   (2002-02-19 14:56) [11]

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

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

---

← →
draculenok   (2002-02-19 15:03) [12]

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

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.004 c