otra pregunta mas

[fabian20s]

disculpen tantas preguntas es que quiero aprender el caso es este
en una tabla1 tengo un campo calculado el cual suma de la tabla2 todos los datos del campo "sub_total" el caso es que cuando cambio o actualizo los datos de la tabla2 no se actualiza el campo calculado
el codigo que utilizo en el evento oncalculated es el siguiente

procedure Tfrm_Ventas.Table3CalcFields(DataSet: TDataSet);
begin
table4.Active := false;
table4.active := true;
while not Table4.Eof do
begin
table3precio_nominal.value := table3precio_nominal.value + Table4sub_total.value;
Table4.Next;
end;
table3total.asfloat := table3precio_nominal.Asfloat + table3precio_nominal.Asfloat
end;