[VB6 ] combo 如何在輸入期間同時飾選資料?

[Hotan (昊天)]

如題，每輸入一個字就更新一次combo裡符合的內容

Private Sub Combo2_Change()

    CN.Open ConnString
    sql = "SELECT * FROM customer "
    sql = sql & "WHERE customer_No is not null"
    If (Combo2.Text <> "") Then sql = sql & " and customer_Name = '" & Combo2.
Text & "%' "

    combo2.clear
    ^^^^^^^^^^^^

'這個清除找不到正確的位置..@@ 輸入完也清除了，查也沒查，不能放在change裡?

'請問我遺落了什麼嗎?? 希望能得到前輩們的指教，怎樣可以做到?? 謝謝 ^^


    RS.Open sql, ConnString, , , adCmdText

    While RS.EOF = False

        Combo2.AddItem RS("customer_Name")

        RS.MoveNext

    Wend

    CN.Close
    RS.Close

End Sub

--

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 202.132.132.184
推 fumizuki:vb 2005 才有支援自動完成功能 ...vb6 好像沒見過自動完
推 fumizuki:成的範例耶