Listview'de Toplama

[fehdur]

Listview1 de 2. sütunda bulunan değerlerin toplamını Textbox1'e aldırmak istiyorum.Aşağıdaki kodu nasıl düzenleyebiliriz.Kod şu anda çalışmıyor.

Dim topla As Double
On Error Resume Next
For i = 1 To ListView1.ListItems.Count
toplam = toplam + CDbl(ListView1.ListItems(i).SubItems(2)
Next
TextBox1.Text = Format(toplam, "#,##0.00")

 

[Mahmut Bayram]

Aşağıdaki şekilde deneyiniz.

Dim toplam As Double
On Error Resume Next
For i = 1 To ListView1.ListItems.Count
toplam = toplam + CDbl(ListView1.ListItems(i).SubItems(2))
Next
TextBox1.Text = Format(toplam, "#,##0.00")

 

[fehdur]

Kod çalıştı.Teşekkür ederim.

 

[seddur]

Mümkünse Listboxdan da toplama nasıl yapılabilir yazarmısınız ?

 

[Mahmut Bayram]

Ekteki örneği inceleyiniz.