VPF::Очистка комбобокса - Форум программистов

dize

Дата 9.10.2009, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 128
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

Access2000, ADO. В обеих ADOQquery прописаны условия выборки и active=true.
При заполении комбобокса столкнулся с проблемой его очистки. На форме есть кнопка, при нажатии на которую ее caption изменяется на "a", при еще одном на "b". При caption=a, ADOQ_emitent берет данные из одной таблицы, при caption=b, ADOQ_kot берет данные из другой. В обоих случаях сначала идет очистка комбобокса, а затем заполнение, в зависимости от условия. Самое странное, что при переключении caption более двух раз, комбобокс не запоняется ничем, т.е. пустой, а необходимо, чтобы таких переключений могло быть неограниченное кол-во раз.

Код


procedure TKill.FormActivate(Sender: TObject);
begin
   if mainmenu.Button9.Caption='a' then
   begin
   CB_emitent.Items.Clear;
  while (not ADOQ_emitent.Eof) do
   begin
      CB_emitent.Items.Add(ADOQ_emitent.FieldByName('Sec_Name').AsString);
      ADOQ_emitent.Next();
   end
   end
   else
   begin
   CB_emitent.Items.Clear;
   while (not ADOQ_kot.Eof) do
   begin
      CB_emitent.Items.Add(ADOQ_kot.FieldByName('Sec_Name').AsString);
      ADOQ_kot.Next();
      end;
   end;
end;

--------------------

- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.

Frees

Дата 9.10.2009, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

Код


  ....
  ADOQ_emitent.First;
  while (not ADOQ_emitent.Eof) do
  ....
   ADOQ_kot.First;
   while (not ADOQ_kot.Eof) do

а так

--------------------

Кольцов Виктор Владимирович

dize

Дата 11.10.2009, 19:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 128
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

Помогло...спасибо smile

--------------------

- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »