VPF::BlockReadSize в DBGridEh - Форум программистов

Grig

Дата 6.6.2005, 06:46 (ссылка)

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

Загрузка ...

Опытный

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

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

День добрый!!
Вот тут у меня такое происшествие:

Код


 adotable1.BlockReadSize:=1;
adotable1.First;
while not adotable1.Eof do
 begin
  adotable1.Next;
  end;
 adotable1.BlockReadSize:=0;
end;

Свойство BlockReadSize создано для того, чтобы вся навигация по adotable1 не отображалась на гриде.
На DBGrid это работает, на DBGridEh - ни в какую
smile

Может возможно как-нибудь это обойти?

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

offline

Дата 6.6.2005, 10:16 (ссылка)

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

Загрузка ...

Опытный

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

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

А ты попробуй

Код


ADOTable1.DisableControls;
ADOTable1.First;
While not ADOTable1.Eof do begin
 ...
 ADOTable1.Next;
 end;
ADOTable1.EnableControls;

Grig

Дата 6.6.2005, 10:29 (ссылка)

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

Загрузка ...

Опытный

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

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

Работает!!
А вот как допустим, если я нахожусь на 20-й записи, после всех этих движух вернутся на нее же?
Какое-нибудь подобие номера строки есть в Дельфи?
Чтобы пользователь вообще ничего не заметил.

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

offline

Дата 6.6.2005, 11:22 (ссылка)

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

Загрузка ...

Опытный

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

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

Конечно, есть закладка для этого случая

Код


var
 Zakladka : TBookMark; //переменная закладки
begin
 ADOTable1.DisableControls;

 Zakladka := ADOTable1.GetBookmark; //установить закладку


 ADOTable1.First;
 While not ADOTable1.Eof do begin
  ...
  ADOTable1.Next;
  end;


 if ADOTable1.BookmarkValid(Zakladka) //если закладка существует
  then ADOTable1.GotoBookmark(Zakladka); //перейти на закладку
 ADOTable1.FreeBookmark(Zakladka); //удалить закладку

 ADOTable1.EnableControls;
end;

Grig

Дата 6.6.2005, 11:27 (ссылка)

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

Загрузка ...

Опытный

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

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

kirilllius, спасибо!!!
Не понимаю, чтоб я без Вас делал...

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

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