leosoft respondió:
Tienes que utilizar el evento Dbgrid1_AfterInsert el codigo seria algo asi: Dim Cantidad as Single Dim Costo as Single Dbgrid1.Col=0 If Dbgrid1.Tetx <> "" then Cantidad = val(Dbgrid1.Text) Dbgrid1.Col=1 If Dbgrid1.Text <> "" then Costo =...