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

Как создать список просмотра DbGrid????   Найти похожие ветки 

← →
CyBeR ©   (2004-04-17 21:01) [0]

Объясните пожалуйста, что не так. Есть компонет Query, нужно в DBGrid создать список значений поля Naim_disc. Вызываю процедуру по нажатию Button, проект виснет
(до нажатия кнопки Query уже открыт). Сам запрос составлен правильно, проверял

Ниже сама процедура:

procedure TUchPlan.PickListFill;
var N:integer;
begin
N:=0;
while GrafGrid.Columns[N].FieldName<>"disc" do inc(N);
while not Datas.GrafQuery.Eof do with GrafGrid.Columns[N].PickList do
Add(Datas.GrafQuery.FieldByName("Naim_disc").AsString);
Datas.GrafQuery.Next;
Datas.GrafQuery.Close;
end;

---

← →
sniknik ©   (2004-04-17 23:28) [1]

> Вызываю процедуру по нажатию Button, проект виснет
вот эту процедуру что ниже? не находит поля disc, наверняка.

делай немного по другому
while (GrafGrid.Columns.Count < N) and
(UpperCase(GrafGrid.Columns[N].FieldName)<>"DISC") do inc(N);

(примерно так)

и циклится дальше (если вдруг случайно нашло) потому как бегин не поставил
 while not Datas.GrafQuery.Eof do begin
   GrafGrid.Columns[N].PickList.Add(Datas.GrafQuery.FieldByName("Naim_disc").AsString);
   Datas.GrafQuery.Next;
 end;
 Datas.GrafQuery.Close;
end;
(если правильно угадал смысл процедуры)

---

← →
CyBeR ©   (2004-04-18 05:14) [2]

>>sniknik ©
Угадал правильно, Пробую ;-)

---

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

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



Память: 0.45 MB
Время: 0.02 c