Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как создать список просмотра DbGrid???? [D6, Paradox]

CyBeR © (2004-04-17 21:01:00)
Объясните пожалуйста, что не так. Есть компонет 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;

CyBeR (2004-04-18 05:14:00) [1]
>>sniknik ©
Угадал правильно, Пробую ;-)

sniknik (2004-04-17 23:28:00) [2]
> Вызываю процедуру по нажатию 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;
(если правильно угадал смысл процедуры)

Наверх

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