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