Compartilhar tabelas paradox em rede

Procedure SuaTabelaAfterPost(DataSet: TDataSet);
begin
DbCommit(SuaTabela);
end;
procedure DbCommit( tabela: TTable );
begin
tabela.UpdateCursorPos;
case DbiSaveChanges( tabela.Handle ) of
DBIERR_INVALIDHNDL: raise Exception.Create('Tabela inválida.');
DBIERR_NODISKSPACE: raise Exception.Create('Não há espaço em disco.');
DBIERR_NOTSUPPORTED: raise Exception.Create('Função não suportada.');
end;
tabela.CursorPosChanged;
end;
Não se esqueça de incluir DbiProcs, DbiTypes na cláusula Uses...


By Nativo_Gyn