Array
(
)

Erro ao editar um registro quot;At end of tablequot;.

Leorez
   - 01 jul 2004

O problema é o seguinte, quando gravo o registro e tento editalo novamente da um erro

Utilizo o codigo abaixo para gravar o registro.

#Código

   try
     if not dmLabo.Labo.InTransaction then
       dmLabo.Labo.StartTransaction;

     with dmLabo.qrPedidos do
      begin
       Post;
       ApplyUpdates;
      end;
   
      dmLabo.Labo.Commit;
      TotalGeral;
   except
      dmLabo.Labo.Rollback;
      Application.MessageBox(´Não foi possível gravar as informações.´, ´Contabilidade´ ,  mb_OK + MB_ICONERROR);
   end;   

Utilizo o codigo abaixo para editar o registro.

try
    dm.qrPedidos.Edit
   except
      dmLabo.Labo.Rollback;
      Application.MessageBox(´Não foi possível editar o       registro.´, ´Contabilidade´ ,  mb_OK + MB_ICONERROR);
   end; 


em seguida aparece um menssagem de erro

At end of table.

Utliliso ODBC e os compomente da paleta BDE do delphi7

:arrow: Título alterado pelo Moderador oTTo.
:idea: Seja mais claro no título.
:idea: LEia as regras de conduta do fórum.