error en FOR

[manedf]

estoy tratando de sumar los valores de la columna 5 de mi mshflex pero no funciona, donde esta mi error. MUCHAS GRACIAS POR SU AYUDA.

Dim i As Integer
Dim a As Double
For i = 1 To Grid2.rows - 1
a = val(Grid2.TextMatrix(i,5))
Next
LabelSubtotal = a

[TolaWare]

cual es el error que te tira VB?

[Insomnia]

Hola

En la variable a no estas guardando la suma total, ya que en cada vuelta sustituyes el valor de a por el valor del siguiente registro, es decir, para realizar la suma tendrías que hacer:

Código:

a = a + val(Grid2.TextMatrix(i,5))

--Saludos--

[manedf]

Gracias Insomnia he resuelto mi error, exactamente era lo que me dijiste. Asi me quedo.

Dim i As Integer
Dim a As Double
For i = 1 To Grid2.Rows - 1
a = a + val(Grid2.TextMatrix(i, 5))
LabelSubtotal = a
Next