作者Hotan (昊天)
看板Visual_Basic
标题[VB6 ] combo 如何在输入期间同时饰选资料?
时间Tue Aug 1 01:28:14 2006
如题，每输入一个字就更新一次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
1F：推 fumizuki:vb 2005 才有支援自动完成功能 ...vb6 好像没见过自动完 08/01 07:29
2F：推 fumizuki:成的范例耶 08/01 07:30