Listview Boş Subitem Sorunu Çok Önemli

[by.FoX]

Set borc = ListView1.Listitems(1).ListSubItems(5)
Set tahs = ListView1.Listitems(1).ListSubItems(6)
bakiye = 0
bakiye = borc - tahs + bakiye
ListView1.Listitems(1).SubItems(7) = bakiye
For i = 2 To ListView1.Listitems.Count
Set borc = ListView1.Listitems(i).ListSubItems(5)
Set tahs = ListView1.Listitems(i).ListSubItems(6)
bakiye = borc - tahs + ListView1.Listitems(i - 1).ListSubItems(7)
ListView1.Listitems(i).SubItems(7) = Format(bakiye, "#,##0.00")
Next i
Set borc = Nothing
Set tahs = Nothing

For i = 1 To ListView1.Listitems.Count

atb = atb + CDbl(ListView1.Listitems(i).ListSubItems(5))
ata = ata + CDbl(ListView1.Listitems(i).ListSubItems(6))
bakiy = (atb - ata)

Next i

TextBox3.Value = atb
TextBox4.Value = ata
TextBox5.Value = bakiy

Sorunum Şu boş subitem ları "0" sıfır olarak görmüyor böylece hesaplamayı yanlış yapıyor. Listview de göstermesin sıfır diye ama Boş olan subitem ları "0" olarak algılasın istiyorum yardımcı olan üstadlara şimdiden teşekkür ederim.

 

[by.FoX]

değerli hocalarım dim borc as integer dediğim zaman tam sayı olarak hesaplıyor yani ben borc tahs ve bakiye hanelerini ondalıklı sayı olarak belirlemen lazım

 

[Levent Menteşoğlu]

Val fonksiyonunu kullanın. Örneğin,

bakiye = [COLOR=red][B]val(replace([/B][/COLOR]borc[B][COLOR=red],",",".")[/COLOR][/B] - tahs + ListView1.Listitems(i - 1).ListSubItems(7)

Not: Replace fonksiyonu, ondalık olan sayıları val fonksiyonunun doğru algılaması için kullanılmıştır.

 

[by.FoX]

Levent hocam ilginiz için teşekkür ederim Listviewin herhangi bir satırında "borc" hanesi dolu ise "tahs" hanesi boş oluyor boş olan subitemler ı ise "0" sıfır olarak görmüyor

 

[Levent Menteşoğlu]

Yukarıda verdiğim kullanımı boş olması muhtemel bütün değişkenlere uygulamalısınız.