前几日在输入产品代码时总是要查来查去，比较麻烦，在用很多软件的时候他们都会有根据输入自动匹配展开的功能。当时就想我能不能开发一个，之后问麦老师，老师指导说搜索模糊查询。找了几个帖子，觉得太复杂了，要新建模块，N多行代码，弄不明白。索性自己研究。找来基本书，再结合百度，终于弄出下面的代码，不到50行搞定。代码中“？”是中文字符，我粘贴的时候自动变成了“？”。懒得改了，我想愿意看的应该看的懂，不愿意看的我改也没意思。
Private Sub ???????_AfterUpdate()
If Not IsNull(Me.???????) Then
If DCount("*", "My_ProductTable", "???????='" & Me.??????? & "'") = 0 Then
MsgBox "????????л??????????????", vbOKOnly, "????"
Me.??????? = ""
End If
Me.??λ = Nz(DLookup("??λ", "My_ProductTable", "???????='" & Me.??????? & "'"), "")
Me.??????? = Nz(DLookup("???????", "My_ProductTable", "???????='" & Me.??????? & "'"), "")
Me.?????? = Nz(DLookup("??????", "My_ProductTable", "???????='" & Me.??????? & "'"), "")
Me.?????? = Nz(DLookup("??????", "My_ProductTable", "???????='" & Me.??????? & "'"), "")
End If
Me.TempKey = ""
End Sub
Private Sub ???????_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode < 33 Then Exit Sub
If Nz(Me.TempKey, "") = "" Then
Me.???????.RowSource = "Select TOP 10 ??????? FROM My_ProductTable Where ??????? LIKE '" & "*" & Chr(KeyCode) & "*-1" & "' orDER BY ??????? "
Me.TempKey = Chr(KeyCode)
Else
Me.???????.RowSource = "Select TOP 10 ??????? FROM My_ProductTable Where ??????? LIKE '" & "*" & Me.TempKey & Chr(KeyCode) & "*-1" & "' orDER BY ??????? "
Me.TempKey = Me.TempKey & Chr(KeyCode)
End If
Me.???????.Dropdown
End Sub
刚刚测试了一下，上面这段代码对数字符号及字母组成的字符是有效的，但对于中文字符不能实现其效果，请其他高手多多指教！
