- Beranda
- Komunitas
- Tech
- Programmer Forum
Combo Box Bug VB6
TS
Jeprotz
Combo Box Bug VB6
Gan, ane punya issue nih pas mau load isi list combobox secara otomatis pas diinput comboboxnya, jd kyk google search gt ada suggested search. Masalahnya, pas combobox diisi dari item yang diambil dari database dengan input langsung di combobox, item akan terisi, tapi saat item yang diisi kurang dari jumlah item sebelumnya, akan terjadi bug yang dimaksud(item nyangkut di background)
Mohon bantuan, n mw tanya apa ada fungsi atw instruksi biar combobox bisa expand n collapse combobox?
Mohon bantuan, n mw tanya apa ada fungsi atw instruksi biar combobox bisa expand n collapse combobox?
Code:
Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim sql As String
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim a As String
sql = "select * from MSItemInventory where name1 like '" & Combo1.Text & "'+'%' order by name1"
Connect
Set rs = con.Execute(sql)
a = Combo1.Text
'Combo1.Clear
Set rs = con.Execute(sql)
If Not rs.EOF Then
Combo1.Clear
i = 1
While Not rs.EOF
Combo1.AddItem (IIf(IsNull(rs!name1), "", rs!name1))
Combo1.ItemData(Combo1.NewIndex) = i
i = i + 1
rs.MoveNext
Wend
End If
Combo1.Text = a
Combo1.SelStart = Len(Combo1)
End Sub
Diubah oleh Jeprotz 02-03-2013 04:58
0
723
1
Komentar yang asik ya
Urutan
Terbaru
Terlama
Komentar yang asik ya
Komunitas Pilihan