Tema: Calcular campos de un Listview a un textbox
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 15/10/2006, 17:50
Avatar de jc_moty
jc_moty
 
Fecha de Ingreso: septiembre-2005
Ubicación: Usulután, El Salvador
Mensajes: 477
Antigüedad: 18 años, 7 meses
Puntos: 1
Si entendi bien, queres sumar todos los valores de una columna de un listview.
Para hacer eso yo hago uso de la siguiente funcion:
Código: 
Private Function sumarLista() As Double
    For I = 1 To ListView1.ListItems.Count
        sumarLista = Round(sumarLista + Val(ListView1.ListItems(I).SubItems(4)), 2)
    Next I
End Function
La funcion anterior parte del hecho de que el Subitem que queres sumar es el numero 4; en caso de que sea otro Subitem el que queres sumar, simplemente cambia ese numero.
En el boton ADD simplemente haces la llamada a la funcion:
Código: 
Text1 = Trim(Str(sumarLista))
Espero te sirva
Saludos