![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|
|
#1
|
|||
|
|||
|
Disculpá, a lo que me refiero es que al ingresar un registro, el segundo campo del registro pase a ser el valor del primer campo del registro que le sigue, o sea que tome una secuencia así: 1°reg.(0,10), 2°reg.(10,20), 3°reg.(20,30)
|
|
#2
|
|||
|
|||
|
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;
|
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|