在没有完整输入情况下可以正常使用,但想改变输入框内容时提示错误
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("电气型号规格_电气型号规格")
If txt = "" Then
tbl.Filter = ""
Else
txt = "'%" & txt & "%'"
MessageBox.Show(1)
tbl.Filter = "型号规格 Like " & txt ’提示错误的语句
MessageBox.Show(2)
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框
[此贴子已经被作者于2014-10-4 10:10:17编辑过]