Hola
Que yo sepa la excepción es para devolver la tabla a su estado anterior a la ultima operacion:
Código Delphi
[-]procedure TfrmCliente.btnGuardarClick(Sender: TObject);
begin
try
dmAcceso.cdsClientesPAIS.Value := cbexPais.text;
dmAcceso.cdsClientes.Post;
dmAcceso.cdsClientes.ApplyUpdates(0);
cbexPais.text := 'Otro';
except
on E:Exception do begin
dmAcceso.IBTransaction1.RollbackRetaining;
ShowMessage(#13+E.Message);
end;
end;
if Application.MessageBox('¿Desea Agregar Otro?', 'Confirmación',
MB_ICONQUESTION OR MB_YESNO) = ID_NO then
begin
frmPrincipal.CerrarPestana;
end
else
Begin
dmAcceso.cdsClientes.Active := False;
dmAcceso.cdsClientes.Active := True;
dmAcceso.cdsClientes.Last;
dmAcceso.cdsClientes.Insert;
end;
end;
Saludos