¿Cómo puedo sumar los subitems de un listview?
Publicado por Betty (5 intervenciones) el 11/07/2008 05:53:47
Hola a todos,
He encontrado varios ejemplos y el que mejor me ha funcionado es este código:
Dim Total As Double, i As Integer
'Suma los valores de la columna de los Subitems(1)
For i = 1 To Frm_Prueba.ListView1.ListItems.Count - 3
Total = Total + Frm_Prueba.ListView1.ListItems(i).SubItems(1)
Next
'Asigna el valor total
Frm_Prueba.Txt_Tanticipos = FormatCurrency(Total)
sólo que tengo 4 registros en el listview y sólo me toma el primero, es decir, en el textbox aparece el primer registro del list y no suma los otros tres ¿Alguien me puede decir si es que mi código está mal?
ya he probado modificando esta línea (COmo alguien me sugirió)
For i = 0 To Frm_Prueba.ListView1.ListItems.Count - 1 y me marca el error 35600 index out of bounds
¿Cómo le puedo hacer?
De antemano muchas gracias y disculpen las molestias.
He encontrado varios ejemplos y el que mejor me ha funcionado es este código:
Dim Total As Double, i As Integer
'Suma los valores de la columna de los Subitems(1)
For i = 1 To Frm_Prueba.ListView1.ListItems.Count - 3
Total = Total + Frm_Prueba.ListView1.ListItems(i).SubItems(1)
Next
'Asigna el valor total
Frm_Prueba.Txt_Tanticipos = FormatCurrency(Total)
sólo que tengo 4 registros en el listview y sólo me toma el primero, es decir, en el textbox aparece el primer registro del list y no suma los otros tres ¿Alguien me puede decir si es que mi código está mal?
ya he probado modificando esta línea (COmo alguien me sugirió)
For i = 0 To Frm_Prueba.ListView1.ListItems.Count - 1 y me marca el error 35600 index out of bounds
¿Cómo le puedo hacer?
De antemano muchas gracias y disculpen las molestias.
Valora esta pregunta


0