Problema dbGrid y Query

[[Lepe]]

Creo que deberías usar el evento OnCalcFields del propio dataset para hacer las sumas; El ttable tiene otra propiedad relacionada con CalcFields de tipo Boolean.

Antes de hacer los cálculos, pregunta por los valores de los campos implicados en la suma, ya que uno de ellos puede estar en blanco y la suma no se lleve a cabo. Recuerda que cualquier operación con un campo que tenga el valor NULL, el resultado será NULL (mira la ayuda, hay alguna excepción).

Otra opción es lanzar tu consulta de suma, en el evento BeforePost de la tabla detail. Si, suena un poco raro pero no es así. Al grabar una linea, se dispara la suma, se actualiza el campo total de la tabla maestra, se guarda la tabla maestra, y por último se continúa grabando la tabla detalle.

Saludos

[TrUnkS]

Yo lo hice de la siguiente manera: Supongamos que tienes en el DBGrid los siguientes campos de tu tabla detalles: CANTIDAD, DETALLE, PRECIO UNITARIO, TOTAL en este mismo orden, y quieres que la suma de todos los totales pasen a un label. En el evento OnKeyPress del DBGrid pones

Código Delphi [-]
if Key = #13 then  //  Si se pulsa la tecla ENTER en el Grid
  begin
   if DBGrid1.Fields[0].Value = Null then
    DBGrid1.Fields[0].AsFloat := 1; // CANTIDAD
   if DBGrid1.Fields[2].Value = Null then
    DBGrid1.Fields[2].AsFloat := 0; // PRECIO UNITARIO
   DBGrid1.Fields[3].AsFloat := DBGrid1.Fields[0].AsFloat * DBGrid1.Fields[2].AsFloat; // TOTAL
   LabelSumaTotal.Caption:='0'; // 
   TDetalles.First; // primer registro tabla Detalles
   While TDetalles.Eof=False do
    begin
     DBGrid1.Fields[3].AsFloat := DBGrid1.Fields[0].AsFloat * DBGrid1.Fields[2].AsFloat;
     LabelSumaTotal.Caption:=FloatToStr(DBGrid1.Fields[3].AsFloat + StrToFloat(LabelSumaTotal.Caption));
     LabelImpuesto.Caption:=FloatToStr(StrToFloat(LabelSumaTotal.Caption) * 0.19);  // 0.19 es el impuesto
     LabelTotal:=FloatToStr(StrToFloat(Label1SumaTotal.Caption) + StrToFloat(LabelImpuesto.Caption));
     TDetalles.Next; // siguiente registro tabla Detalles
    end;
   DBGrid1.Fields[1].FocusControl; // El cursor se posiciona en columna Detalles de la tabla Detalles
  end;

Con esto cuando el usuario vaya ingresando datos sabras a cada instante los totales. Saludos