DBgrid
Hola
Tengo 2 problemas con el dbgrid32, lo estoy usando en un programa de facturación para introducir los detalles de la factura, el problema es cuando estoy introduciendo datos, lleno la primera fila del dbgrid y no puedo continuar con la segunda. Lo otro es, en ese dbgrid tengo tres columnas una es cantidad, otra es costo y la otra es subtotal, como puedo hacer para que cuando llene una fila se multiplique costo * cantidad y el resultado lo tenga la columna subtotal.
Ayudame por favor, necesito solucionar ese problema.
Tengo 2 problemas con el dbgrid32, lo estoy usando en un programa de facturación para introducir los detalles de la factura, el problema es cuando estoy introduciendo datos, lleno la primera fila del dbgrid y no puedo continuar con la segunda. Lo otro es, en ese dbgrid tengo tres columnas una es cantidad, otra es costo y la otra es subtotal, como puedo hacer para que cuando llene una fila se multiplique costo * cantidad y el resultado lo tenga la columna subtotal.
Ayudame por favor, necesito solucionar ese problema.
1 Respuesta
Respuesta de leosoft
1
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 = val(Dbgrid1.Text)
Dbgrid1.Col=2
Dbgrid1.Text = Costo * Cantidad
End IF
End IF
Podes cambiar el nombre de las variables y el nombre del dbgrid según como lo tengas en tu programa.
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 = val(Dbgrid1.Text)
Dbgrid1.Col=2
Dbgrid1.Text = Costo * Cantidad
End IF
End IF
Podes cambiar el nombre de las variables y el nombre del dbgrid según como lo tengas en tu programa.
