Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("电气型号规格_电气型号规格")
If txt = "" Then
tbl.Filter = ""
Else
txt = "'%" & txt.Replace("*", "[*]") & "%'"
MessageBox.Show(1)
tbl.Filter = "型号规格 Like " & txt '提示错误的语句
MessageBox.Show(2)
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框