listbox

[muratozmenler]

For i = 0 To ListBox1.ListCount - 1
If ListBox1.List(i, 3) < Format(Date, "dd.mm.yyyy") And ListBox1.List(i, 2) < Format(time, "24:00") Then

ListBox2.AddItem
ListBox2.List(s, 0) = ListBox1.List(i, 0)
ListBox2.List(s, 1) = ListBox1.List(i, 1)
ListBox2.List(s, 2) = Format(ListBox1.List(i, 2), "hh:mm")
ListBox2.List(s, 3) = Format(ListBox1.List(i, 3), "dd.mm.yyyy")

s = s + 1

End If
ACABA LİSTBOXUN 3 KOLONUNDA VERİ YOKSA O KOLON LİSTEDE YER ALMAMASI İÇİN NASIL BİR DEĞİŞİKLİK YAPABİLİRİM...

 

[Levent Menteşoğlu]

Döngünün içinde bir if komutu ile ilgili kolonların boş olup olmadığını denetletmeniz gerekir.