Hej är det någon som vet hur man får till en funktion för att räkna ihop
alla tal i en Listview.ListItems(1) o.s.v i en listview.

Som tex:
text1=listview1.listitems.Count för att räkna antal rader i en listview
vill jag summera ihop tal i tex:
text1= sum(Listview1.ListItems(1)) men så enkelt verkar det inte vara

Mvh
Tobbe

Dim ListItem as ListItem
Dim Sum as Double

For each ListItem In Listview1.ListItems
Sum = Sum + CDbl(ListItem.Text)
Next

'Alternativt:
For each ListItem In Listview1.ListItems
Sum = Sum + CDbl(ListItem.Subitem(1))
Next

Tack för svaret men jag får det inte riktigt att fungera
gorde så här men då visas bara talet som är i sista rutan.

For Each ListItem In List1.ListItems

Text1 = Sum + CDbl(ListItem.SubItems(4))

Next

Kanske gör helt fel?
Mvh
Tobbe

Dim ListItem as ListItem
Dim Sum as Double

For each ListItem In Listview1.ListItems
Sum = Sum + CDbl(ListItem.Subitem(4))
Next

Text1 = Sum

Om det är så att vissa rader är tomm, eller ej numerisk. Kan du lägga in en kontroll:

For each ListItem In Listview1.ListItems
If IsNumeric(ListItem.Subitem(4)) Then
Sum = Sum + CDbl(ListItem.Subitem(4))
End If
Next

Tackar tackar de va det som saknades funkar s--tbra :-)

For each ListItem In Listview1.ListItems
If IsNumeric(ListItem.Subitem(4)) Then
Sum = Sum + CDbl(ListItem.Subitem(4))
End If
Next
text1=sum