Sumar en un listview se puede?

Question

hola quiero realizar una zuma de un fila de un listview la cual por un boton  ya

me a cargado las cantidades q quiero sumar. Estoy trabajan con base de dato

access 2003

Aqui el codido utilizado

On Error Resume Next
rs.Close
Dim Cont As Integer
  Cont = 0
  
  rs.Open "select * from tabla1 where Id = '" & TextID2.text & "'AND Anulado= '" & TextAnulado.text & "'", db, adOpenDynamic, adLockOptimistic
     
     If (rs.BOF And rs.EOF) Then

     End If
  
   ListView1.ListItems.Clear
   If Not rs.RecordCount < 1 Then rs.MoveFirst
   Do Until rs.EOF
        
        Cont = Cont + 1
       txtnroparto.text = Cont
   
If Not IsNull(rs!Id) Then Set itm =   ListView1.ListItems.Add(, , rs!Id)

            If Not IsNull(rs!Id) Then itm.SubItems(1) = rs!N
            If Not IsNull(rs!Id) Then itm.SubItems(2) = rs!Nombre
            
          
            
        rs.MoveNext
        DoEvents
    Loop
  
    rs.Close
    Exit Sub
   rs.MoveNext
End Sub

Por ejemplo quiero sumar  todos los

SubItems(1)

Answer 1

prueba con esto

Private Sub Command1_Click()  
      
    Dim Total As Double, i As Integer 
 
    'Suma los valores de la columna de los Subitems(1)  
    For i = 1 To ListView1.ListItems.Count - 3  
        Total = Total + CDbl(ListView1.ListItems(i).SubItems(1))  
    Next 
      
    'Asigna el valor total  
    ListView1.ListItems("Total").SubItems(1) = FormatCurrency(Total, 2)  
 
End Sub

 

---

Capacitaciones Corporativas
Si pequeña es la Patria, uno grande la sueña
Rubén Darío
Principe de las letras Castellanas
Poeta Nicaragüense
Ay Nicaragua, Nicaraguita Video Clip

Answer 2

Bueno hermano no me anda me da error en este linea

 

ListView1.ListItems("Total").SubItems(1) = FormatCurrency(Total, 2)  

 

saludos...

Answer 3

has un printer screen del error para ver que error te da..

---

Capacitaciones Corporativas
Si pequeña es la Patria, uno grande la sueña
Rubén Darío
Principe de las letras Castellanas
Poeta Nicaragüense
Ay Nicaragua, Nicaraguita Video Clip

Answer 4

 Aqui esta amigo

 

 

Answer 5

En tu post dice que quieres calcular el total de productos, no se supone que el resultado lo debes de poner en un cuadro de texto?, el error que da es porque en el listview no encuentra el elemento "total" no esta creado dentro de la estructura del listview

aqui hay mas ejemplos http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/192-buscar-listview-finditem.htm

Private Sub Command1_Click()

Dim Total As Double, i As Integer

'Suma los valores de la columna de los Subitems(1)
For i = 1 To ListView1.ListItems.Count - 3
Total = Total + CDbl(ListView1.ListItems(i).SubItems(1))
Next

'Asigna el valor total
ListView1.ListItems("Total").SubItems(1) = FormatCurrency(Total, 2)

End Sub

---

Capacitaciones Corporativas
Si pequeña es la Patria, uno grande la sueña
Rubén Darío
Principe de las letras Castellanas
Poeta Nicaragüense
Ay Nicaragua, Nicaraguita Video Clip

Answer 6

si si deberia de aparecer en un cuadro de texto el resultado y la verdad no entiendo nada  por ejemplo el total = total este total

de donde sale? y por ejemplo donde da el error que dice asigna el valor total no lo entiendo

 

Saludos muchas gracia por la ayuda

Answer 7

dim aa as listitem

dim total as currency

for each aa in listview.listitems

total = total+ccur(aa.subitems(1))

next

text.text = aa

Answer 8

Yo los sumo de esta manera 

Dim index As Integer
Dim total As Double
total = 0

For index = 0 To List1.ListCount - 1 Step 1
total = total + CDbl(List1.List(index))
Next index

Text1.Text = total

---

Jhonatan Plata