Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("客户录入_Table1")
If txt = "" Then
Tables("客户录入_Table1").Filter = ""
Else
txt = "'*" & txt & "*'"
tbl.Filter = "客户Like " & txt & " Or 区域经理Like " & txt & " & " Or 手机Like " & txt Or 联系人Like " & txt Or 电话Like" & txt
End If
e.Form.DropDownBox.Select()
'将输入焦点返回下拉列表框
从指南中复制后,修改:tbl.Filter = "客户ID Like " & txt & " Or 公司名称Like " & txt & " Or 地址Like" & txt & " Or 联系人Like " & txt
为: tbl.Filter = "客户Like " & txt & " Or 区域经理Like " & txt & " & " Or 手机Like " & txt Or 联系人Like " & txt Or 电话Like" & txt
提示:未声明名称:手机Like 等,但我看前面的代码中没有声明名称的字段。