problema con list view

[_RaSH_]

Código (vb) [Seleccionar] Expandir


Private Function Sumar() As Double
   
    Dim i As Integer
        For i = 1 To ListView1.ListItems.Count
             SumarPar = SumarPar + CDbl(ListView1.ListItems(i).SubItems(3))
         Next i
   
   
End Function

Private Sub Command3_Click()
   
Label1.Caption = "Total pares: " & Val(SumarPar)
End Sub


siempre tira que la suma es 0 

[cassiani]

Así como lo has hecho no es realmente una "función", nunca devolverá un valor y  viendolo desde otra perspectiva, nunca llamaste al a "rutina" en todo caso.
¿Pero es una rutina o una función? y ¿cúal es la diferencia?   

la solución: cambia el nombre de la "función" a SumarPar y te devolverá el resultado de la suma