Sumar columna en un SSDBGRID
Gracias por leer estas líneas y otras más por su ayuda. Sucede que tengo una aplicación en la cual los operadores ingresan una serie de datos en un ssdbgrid, datos que después serán guardados en una tabla de MS-Access. Pues bien, sucede que cuando los operadores digitan los datos, un Label en el formulario debe ir acumulando el valor de una columna específica. He probado de varias formas, incluyendo el siguiente código:
Private Sub SumaGrid()
Dim Total as Double,i as integer
total=0
grid.movefirst
for i=0 to grid.rows-1
total= total+grid.columns("iva").value
grid.movenext
next
lblTotalIVA.caption= total
end sub
El problema es que el lblTotalIVA no muestra más que el valor de la columna de interés pero de la primera fila y no me incluye las filas restantes.
Private Sub SumaGrid()
Dim Total as Double,i as integer
total=0
grid.movefirst
for i=0 to grid.rows-1
total= total+grid.columns("iva").value
grid.movenext
next
lblTotalIVA.caption= total
end sub
El problema es que el lblTotalIVA no muestra más que el valor de la columna de interés pero de la primera fila y no me incluye las filas restantes.
Respuesta de denciso
1
La rutina debe de ser:
Private Sub SumaGrid()
Dim Total as Double,i as integer
total=0
for i=0 to grid.rows-1
grid.row = i
total= total+grid.columns("iva").value
next
lblTotalIVA.caption= total
end sub
Private Sub SumaGrid()
Dim Total as Double,i as integer
total=0
for i=0 to grid.rows-1
grid.row = i
total= total+grid.columns("iva").value
next
lblTotalIVA.caption= total
end sub
