Форум: "Базы";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
ВнизУникальные значения Найти похожие ветки
← →
asafr (2002-03-21 12:22) [4]ComboBox3.Items.Clear;
with Query1 do begin
try
if active then close;
SQL.Clear;
SQL.Add("select distinct Prod from Table1");
Open;
While not EOF do begin
ComboBox3.Items.Add(FieldByName("Prod").AsString);
Next;
end;
finally
Close;
end;
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c