Components for Delphi and C++ Builder.

Перейти в английский форум
Перейти на EhLib.com
Текущее время: 29 мар 2024, 11:59

Часовой пояс: UTC




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: MemTableEh.RecordCount ошибка
СообщениеДобавлено: 08 май 2019, 11:32 
Не в сети

Зарегистрирован: 03 мар 2017, 07:12
Сообщений: 91
Здравствуйте
Цепочка такая
SelectPat (TSQLQuery) - DataSetDriverEhPat - MemTableEhPat - DSpat (TDataSource)

Обработка события

Код:
procedure TDM.DSpatDataChange(Sender: TObject; Field: TField);
begin
     if MemTableEhPat.RecordCount>0 then
     begin
     ...
     end;
end;


Выдает ошибку
см. картинку и показывает функцию в модуле TMemTableEh

Код:
function TCustomMemTableEh.GetRecordCount: Integer;
begin
  CheckActive;
  Result := FRecordsView.ViewItemsCount;
end;   


Заменяю MemTableEhPat на SelectPat работает
Код:
procedure TDM.DSpatDataChange(Sender: TObject; Field: TField);
begin
     if SelectPat.RecordCount>0 then
     begin
     ...
     end;
end;


Почему так? Это ошибка у меня или в модуле?


Вложения:
recordcount.png
recordcount.png [ 22.27 KiB | Просмотров: 487 ]
Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: MemTableEh.RecordCount ошибка
СообщениеДобавлено: 08 май 2019, 12:38 
Не в сети

Зарегистрирован: 21 дек 2011, 18:48
Сообщений: 1546
Добрый день.

Добавьте проверку на активность MemTable

Код:
procedure TDM.DSpatDataChange(Sender: TObject; Field: TField);
begin
     if MemTableEhPat.Active and (MemTableEhPat.RecordCount>0) then
     begin
     ...
     end;
end;

_________________
Best regards
EhLib support Team


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

Часовой пояс: UTC


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB