Как создать список просмотра 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;
(если правильно угадал смысл процедуры)

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