[VB6 ] combo 如何在輸入期間同時飾選資料?
如題，每輸入一個字就更新一次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
推
08/01 07:29, , 1F
08/01 07:29, 1F
推
08/01 07:30, , 2F
08/01 07:30, 2F
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章