Título: ListView no me suma el indice 0 Publicado por: RiasChan en 3 Abril 2018, 20:51 pm Este codigo me suma sin problemas todas las entradas del listview depediendo lo que le ponga en SubItems(X)
con 1 me suma el valor 2 de la lista (ya que es 0, 1, 2) Pero si justamente quiero q me sume el primer valor de la lista, q es el 0, el subitem deberia ser 0. Pero me dice error. Y si le dejo el 1, me suma el 2do campo de la lista, q es correto ya que es 0, 1. Alguna idea como puedo arreglar esto? Dim i As Long 'Recorre todos los items y para sumar los SubItems For i = 1 To ListView1.ListItems.Count sumar = sumar + CDbl(ListView1.ListItems(i).SubItems(1)) Next i txtDia0 = sumar RESUMEN: neceisto q me sume cada valor de esas columinas en los txts negros de abajo... (https://k50.kn3.net/6B998F5F1.jpg) Título: Re: ListView no me suma el indice 0 Publicado por: RiasChan en 3 Abril 2018, 22:55 pm Ya lo arregle con esto, era modificar una linea de codigo:
Private Sub sumarDIa() Dim i As Integer Dim sumar As Double For i = 1 To ListView1.ListItems.Count sumar = sumar + ListView1.ListItems(i) + CDbl(ListView1.ListItems(i).SubItems(1)) txtDia0.Text = sumar Next i End Sub |