Ver Mensaje Individual
  #2  
Antiguo 01-04-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Ledwin_v.

No está muy detallada la situación, pero como para darte alguna idea te pongo dos ejemplos.

Manualmente usando un TButton:
Código Delphi [-]
procedure TForm1.BotonGuardar(Sender: TObject);
begin
  Table1.Post; // Guardar en Tabla1
  Table2.Edit; // Editar Tabla2
  // Asignar el campo  de Tabla1 al campo en Tabla2 
  Table2.FieldByName('OTROCAMPO').AsString:=  Table1.FieldByName('CODIGO').AsString;
  Table2.Post;  // guardar

En forma automática usando el evento AfterPost de la Tabla1:
Código Delphi [-]
procedure TForm1.Table1AfterPost(DataSet: TDataSet);
begin
  Table2.Edit;   
  // Asignar el campo  de Tabla1 al campo en Tabla2   
  Table2.FieldByName('OTROCAMPO').AsString:= Table1.FieldByName('CODIGO').AsString;
  Table2.Post; // guardar
end;

Pero claro todo depende de la lógica que emplees en tu aplicación...

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 01-04-2011 a las 09:06:37.
Responder Con Cita