Autor Tema: Sumar Filas de un ListView y Mostrar el Resultado en el Columna  (Leído 4868 veces)

0 Usuarios y 1 Visitante están viendo este tema.

FreddyJ

  • Kilobyte
  • **
  • Mensajes: 51
  • Reputación: +0/-2
    • Ver Perfil
Hola, Tengo un boton con el que agrego datos al ListView y al mismo tiempo me guarda en la Tabla. Mas no cargo datos desde la base de datos. El ListView tiene 10 Columnas, en la ultima es donde muestra los Totales. Entonces necesito que al darle al boton agregar y se pasen los datos al ListView se muestren la suma de las filas de la columna totales en una linea del listview mas abajo. Y que cada vez que se agregue datos se sumen los mismos.

Código: [Seleccionar]
   Dim cItem As MSComctlLib.ListItem
    Dim iSumTotales As Double
    Dim i As Integer
   
    For i = 1 To lv.ListItems.Count - 3
        iSumTotales = iSumTotales + CDbl(lv.ListItems(i).SubItems(11))
    Next
   
    Set cItem = lv.ListItems.Add(, , "TOTALES")
        cItem.Bold = True
        cItem.SubItems(1) = ""
        cItem.SubItems(2) = ""
        cItem.SubItems(3) = ""
        cItem.SubItems(4) = ""
        cItem.SubItems(5) = ""
        cItem.SubItems(6) = ""
        cItem.SubItems(7) = ""
        cItem.SubItems(8) = ""
        cItem.SubItems(9) = ""
        cItem.SubItems(10) = ""
        cItem.SubItems(10) = FormatNumber(iSumTotales, 2)

tengo ese código, pero no me suma del todo al primer clic y si le doy 5 veces al boton me muestra 5 veces el nombre TOTALES.

seba123neo

  • Terabyte
  • *****
  • Mensajes: 763
  • Reputación: +88/-5
    • Ver Perfil
Re:Sumar Filas de un ListView y Mostrar el Resultado en el Columna
« Respuesta #1 en: Marzo 16, 2010, 11:50:15 am »
Hola, es que esta mal la logica, el "TOTALES" lo deberias agregar siempre en la ultima columna +1 y no cada vez que agregas un item...primero agrega normal los items y despues cuando ya este ingresado, ahi recien te haces un procedimiento que inserte la fila de Totales pero contando la ultima +1...

saludos.