llenar campo calculado en ejecucion

[andresorozco86]

Empezado por cloayza

Para asignar valor a un campo calculado debes utilizar el evento OnCalcFields del TTable o TQuery...

Aqui un ejemplo de como calcular el valor...


Código Delphi [-]{ VALOR_1 ->Campo de la Tabla... VALOR_2 -> Campo de la TABLA VALOR_3 ->Campo calculado... } procedure TForm1.Table1CalcFields(DataSet: TDataSet); begin {Forma 1} Dataset['VALOR_3']:=Dataset['VALOR_1'] + Dataset['VALOR_2']; {Forma 2} Table1.FieldByName('VALOR_3').AsInteger:=Table1.FieldByName('VALOR_1').AsInteger+Table1.FieldByName( 'VALOR_2').AsInteger; end;


Saludos...

Hola lo que sucede es que utilizo el evento OnCalcFields el llena el campo cuando se ejecuta el programa y yo necesito es que se calcule el campo cuando se le de click a un boton es decir en tiempo de ejecucion.

[ecfisa]

Hola.

Si sólo querés que muestre el valor en en campo calculado del registro actual, basta con que hagas:

procedure TForm1.BtnClick(Sender: TObject);
begin
  Tabla.Edit;
  TablaCpoCalculado.Value:= TablaCpo1.Value + TablaCpo2 *  TablaCpo3...;
end

Pero por supuesto, el dato sólo va a permanecer en pantalla hasta que cambies la posición del registro...

Saludos.