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; |
|
|
|