en que evento del dbgrid puedo hacer un operacion matematica . . .

[Shidalis]

disculpen si no me explico bien lo que yo quiero hacer es una operacion como por ejemplo del campo cantidad (4) * el campo precio unitario (3) y que el resultado lo coloque en el campo total. Mi pregunta en que evento puedo colocar el codigo porque en el evento OnCellClick no funciona ya he probado cada uno de los eventos pero el resultado no lo muestra en el campo.
Si pueden ayudarme se los agradeceria.

[ContraVeneno]

lo que necesitas es hacer desde la base de datos

algo así como

Código SQL [-]
select cantidad, precio, (cantidad * precio) as total
from TuTabla

y esa consulta ligarla al dbgrid atraves de TQuery.... de esta manera el dbgrid ya te mostrara lo que quieres
En fin, las palabras claves que deberías buscar son, TQuery y Campos Calculados

[AGAG4]

Cuando quieras mostrar algún Resultado, en este caso la Multiplicación de Cantidad por Precio, te recomiendo que lo hagas antes de accesar al campo Resultante, es decir si capturas la Cantidad en una Celda del dbGrid al Presionar un ENTER ó TAB pasas a la Celda Resultante (si es que lo tienes de esta forma), la operación la pudieras hacer en el OnColExit de la Celda donde capturas la Cantidad. ejemplo:

Código Delphi [-]
procedure Tforma.dbgridColExit(Sender: TObject);
....
//Si estoy posicionado en la Celda Cantidad
if dbGrid.SelectedIndex = 2 then begin
  Importe : = Cantidad * Prec_Unitario;
....
end;

Espero me haya explicado....

Saludos....

[Shidalis]

Muchas Gracias por su ayuda, ya me funciono!!!!!

[vtdeleon]

Saludos

Si entendi bien, sugiero ll siguiente.

El evento OnCalcField del dataset se implementa para esto

Código Delphi [-]
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
 begin
   with Table1 do begin
     FieldByName('Total').AsFloat:=FieldByName('Cantidad').Asfloat*FieldByName('Costo').AsFloat;
   end;
 end;

[el_barto]

Empezado por vtdeleon

Saludos

Si entendi bien, sugiero ll siguiente.

El evento OnCalcField del dataset se implementa para esto

Código Delphi [-]
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
with Table1 do begin
FieldByName('Total').AsFloat:=FieldByName('Cantidad').Asfloat*FieldByName('Costo').AsFloat;
end;
end;

Por que cuando coloco esta instruccion compilo mi programa y coloco por ejemplo en mi campo cantidad el numero 2, sebloquea totalmente el programa.

Esto me pasa despues de colocar esta instruccion.(Obviamente con los campos que uso)

Gracias

[vtdeleon]

Saludos

Que error te da?