事件用错,语法用错
把原来的事件删除,复制以下过去用。
=====================================
Private Sub combo3_KeyUp(KeyCode As Integer, Shift As Integer)
Dim a As String
a = "*" & Me.Combo3.Text & "*"
Combo3.RowSource = "SELECT [辅助-费用项目表].项目名称 FROM [辅助-费用项目表] " & _
"where [辅助-费用项目表].项目名称 like '" & a & "' "
Combo3.Dropdown
End Sub
====================================
是发生在建释放,而不是更改事件
表中古字符用“[ ]”框起。