Amigos saludos otra vez, tengo un problema y queria saber si pueden resolverlo, en un datagrid que me muestra informacion de facturas, y unos textbox que recogen la sumatoria de las columnas, y unos dtpicker para buscar por rango de fechas en el datagrid.
el problema es que cuando tengo varios datos que sumar, el resultado mismo es correcto, pero si tengo solo un registro no me muestra ningun valor, no se si me explico esto es si hay un dato que contenga por ej. 10000, en el texbox no me muestra ese valor me sale 0, y ademas estuve probando con numeros grandes esto es 24500125 y tampoco los suma solo me coloca un 0 en el textbox, la rutina que ejecuto para sumar los campos de las columnas es el siguiente:

Private Sub SumaExento()
Dim i As Integer, j As Integer, k As Integer, l As Integer

'asigno el número de filas
k = DataGrid1.ApproxCount

With DataGrid1
'me sitúo en la columna Entrada
.Col = 6
'comienzo a recorrer el bucle (resto 1 porque el .approxcount comienza de 1 y el .Row de 0)
For i = 0 To k - 1
'captura errores
On Error Resume Next
'me sitúo en la fila del Indice
.Row = i
'guardo el valor
j = .Text
'uso un acumulador para sumar los contenidos
l = l + j
Next
'despliego el resultado
txtexento = l
End With
End Sub

espero puedan ayudarme a solucionar este problema, sin mas que solicitar me despido desde ya muchas gracias.


Saludos desde Osorno

Carlos Alarcón G.