benm de yapmak ıstedgım otobus sırketı progrmı bınıs ve ınıs yerlerını sececegm devam dedgm zamn verı tabanından o biniş ve iniş yerıne uyan seferlerı listboxta gosterecek combobox1 ve combobox2 dekı verılerı verı tabanından alıyor ama hata verıyor durmadan “Satır/sütun için hiç veri yok. ” bu hatayı verıyor komutum bu
If (ComboBox1.SelectedIndex = data(1)) And (ComboBox2.SelectedIndex = data(2)) Then
ListBox1.Items.Add(data(1) & data(2) & data(3) & data(4) & data(5) & data(6))
End If
ama olmuyor galıba mantık hatası yapıyorum eger bı bılgınız varsa lutfen en gec yarına kadar cvp verırsenız sevınırım lutfen cunku persembeye yetstırmem gereken bır program
murat { 03 Haziran 2007 }
küçük yazım hataleı olabilir. vb kurulu deil bende ama daha basit yol:
sub addComboItem(name as string)
dim x as integer
mevcut as boolean
mevcut=False
For X = 0 To combo1.ListCount - 1
if combo1.List(x)=name then mevcut=true
Exit For
end if
next x
if not mevcut then
Combo1.AddItem name
end if
end sub
