在没有完整输入情况下可以正常使用,但想改变输入框内容时提示错误
Dim txt As String = e.Form.DropDownBox.TextDim tbl As Table = Tables("电气型号规格_电气型号规格")If txt = "" Then tbl.Filter = ""Else txt = "'%" & txt & "%'"
MessageBox.Show(1)
tbl.Filter = "型号规格 Like " & txt ’提示错误的语句
MessageBox.Show(2)
End Ife.Form.DropDownBox.Select() '将输入焦点返回下拉列表框