| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

COmbobox ..... [D5, D6, Paradox]

draculenok ©   (2002-02-19 12:51:00) 

Здравствуйте программеры!!!!!!
Для записи 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 не повторялись
не могу сообразить что мне вписывать!!! чтобы не повторялись значения....
помогите пожалуйста

---

draculenok   (2002-02-19 15:03:00) [1]

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

---

Fareader   (2002-02-19 14:56:00) [2]

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

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

---

draculenok   (2002-02-19 14:51:00) [3]

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

---

Johnmen   (2002-02-19 14:47:00) [4]

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

---

Johnmen   (2002-02-19 14:40:00) [5]

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

---

draculenok   (2002-02-19 14:39:00) [6]

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

---

Fareader   (2002-02-19 14:27:00) [7]

Согласен с MetallAdm ©

---

MetallAdm   (2002-02-19 14:16:00) [8]

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;

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

---

draculenok   (2002-02-19 14:01:00) [9]

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

---

vopros   (2002-02-19 13:47:00) [10]

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

---

vopros   (2002-02-19 13:44:00) [11]

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

---

Fareader   (2002-02-19 13:22:00) [12]

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

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

---

Наверх