[[Caral]]

Hola

Código Delphi [-]
begin
   if (Table2.locate('campo1', edit#.Text, [])) and (Table1.Locate('campo1',edit#.Text,[])) then
   begin
        Table1.Edit;
        Table2.Edit;
        Table1.FieldValues['campo1']:=trim(edit#.Text);
        Table2.FieldValues['campo1']:=trim(edit#.Text);
        Table1.post;
        Table2.Post;
    ShowMessage('Datos Modificados con Éxito');
    end
    else
    ShowMessage('Error al Modificar Datos');
    end
    end
end

Solo me entretengo un rato.
Saludos