Здравствуйте
Цепочка такая
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;
Почему так? Это ошибка у меня или в модуле?