Скачать: CL | DM;

Заполнить программно ComboBox   Найти похожие ветки 

← →
Kirill_S ©   (2003-05-06 10:32) [0]

Подскажите, как можно программно заполнить ComboBox строками из определенных полей таблицы?, строки не должны повторяться.

---

← →
Соловьев ©   (2003-05-06 10:41) [1]

select distinct(field)
from table

with Query do
begin
Close;
Open;
First;
While not Eof do
begin
ComboBox.Items.Add(FieldByName(Field).AsString);
Next;
end;
end

---

← →
Kirill_S ©   (2003-05-06 12:25) [2]

Огромное спасибо, буду пробовать!

---

← →
P.Kert ©   (2003-05-06 12:34) [3]

procedure TfmPRODUCT.FormActivate(Sender: TObject);
var
itemsSTR: array [1..10000] of string;
i: integer;
begin
MainForm.dbSCLAD.StartTransaction;
//-------------INSERT VALUES TO cbDET---------------
i:=0;
with MainForm.taDETAILS do begin
First;
while not MainForm.taDETAILS.EOF do begin
itemsSTR[i]:=MainForm.taDETAILSName.Value;
cbDET.Items.Add(itemsSTR[i]);
Next; i:=i+1;
end;

end;
//---------END OF INSERT VALUES TO cbDET---------------
//------------------------------------------------------------
//---------DISPLAY OF LIST GRID------------------------
//NamePRODUCT:=WorkTable.SelectedField;
MainForm.Enabled:=false;
end;

---

← →
RDA ©   (2003-05-06 14:24) [4]

Мне кажется так
with Table do
begin
Open;
First;
while not Eof do
if (ComboBox.Items.Count=0) or (ComboBox.Items.IndexOf(TableField.AsString))=-1 then
ComboBox.Items.Add(TableField.AsString);
Close;
end;

---

← →
RDA ©   (2003-05-06 14:27) [5]

Мне кажется так
Забыл
with Table do
begin
Open;
First;
while not Eof do
begin
if (ComboBox.Items.Count=0) or (ComboBox.Items.IndexOf(TableField.AsString))=-1 then
ComboBox.Items.Add(TableField.AsString);
Next;
end;
Close;
end;

---

← →
Kirill_S ©   (2003-05-06 14:28) [6]

Всем большое спасибо, уже работает по SQL запросу Соловьева, ему отдельный thanks!:)

---

← →
MsGuns ©   (2003-05-06 14:30) [7]

>P.Kert © (06.05.03 12:34)

А нафига там массив из 10000 строк ? Для солидности ?

---

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

Скачать: CL | DM;



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