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

[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?

[el_barto]

Ninguno, pero hice una tabla de prueba con los campos: campo1, campo2, campo3, campo4, en donde campo4 es la multiplicacion de los campos3 y campo2

Compilo coloco por ejemplo:

campo1 campo2 campo3 campo4
1 10 80

pero en el campo4 no pasa nada, doy tab paso a la sihuiente columna y ni aun asi pasa nada, pense que solo era colocar esta instruccion pero ya veo que no , entonces que es lo que me hace falta

[el_barto]

esta es la instruccion usada:

Código Delphi [-]
 
procedure TForm1.IBDataSet1CalcFields(DataSet: TDataSet);
begin
with IBdataset1 do begin
     FieldByName('campo4').AsInteger:=FieldByName('campo2').AsInteger+FieldByName('campo3').AsInteger;
   end;
end;

[vtdeleon]

Saludos

No veo nada anormal.:confuced:

Hagamos pruebas
Mostrando los datos de cada campo con un ShowMessage.

Código Delphi [-]
procedure TForm1.IBDataSet1CalcFields(DataSet: TDataSet);
begin
with IBdataset1 do begin
Showmessage(IntToStr(FieldByName('campo2').AsInteger));
Showmessage(IntToStr(FieldByName('campo3').AsInteger));
FieldByName('campo4').AsInteger:=FieldByName('campo2').AsInteger+FieldByName('campo3').AsInteger;
end;

Chequea a ver si contiene datos