Tema: Copiar campo
Ver Mensaje Individual
  #4  
Antiguo 09-02-2004
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Reputación: 25
__cadetill Va por buen camino
Bueno, entonces antes de añadir el registro has de capturar el valor del registro anterior (por ejemplo en el BeforeInsert del TTable).

Podria quedar algo así:

Código:
var
  ValorAnt : integer;

procedure TMiForm.Table1BeforeInsert(DataSet: TDataSet);
begin
  if Tabla.RecordCount = 0 then
    ValorAnt := 0
  else
    ValorAnt := Table1.FieldByName('Desde').AsInteger;
end;

procedure TMiForm.Button1Click(Sender: TObject);
begin
  Tabla.Active := true;
  Tabla.Insert;
  Tabla.FieldByName('Desde').AsInteger := ValorAnt;
  Tabla.FieldByName('Hasta').AsInteger := SpinEdit1.Value;      
  Tabla.FieldByName('Valor').AsCurrency := SpinEdit2.Value;
  Tabla.Post
end;
Más o menos esa seria la idea
Responder Con Cita