Добрый день.
В Демо проекте ошибка не воспроизводится.
EhLib.VCL 10.2 Build 10.2.03
Можете доработать Демо проект так, чтобы ошибка стала воспроизводится?
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Q: TMemTableEh;
Q2:TADOTable;
begin
Q := MemTableEh1;
Q2 := ADOTable1;
Q.DisableControls;
Q.Close;
(Q as TMemTableEh).DestroyTable;
MainDBGrid.ClearFilter;
// Q2 := TADOQuery.Create(nil);
// Q2.Connection := FConn;
// sqlw := SQL;
Q2.Open;
(Q as TMemTableEh).LoadFromDataSet(Q2, -1, lmCopy, False);
(Q as TMemTableEh).Open;
Q2.close;
FreeAndNil(Q2);
MainDBGrid.STFilter.Visible := true;
Q.EnableControls;
//Q.EnableControls;
end;
Вход
Регистрация
FAQ
Поиск
