以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  未声明名称?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30473)

--  作者:wqb1102
--  发布时间:2013/3/28 11:57:00
--  未声明名称?

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 等,但我看前面的代码中没有声明名称的字段。


--  作者:wqb1102
--  发布时间:2013/3/28 12:24:00
--  
加空格后,还是:未声明名称:手机   (我还特意从字段中引用)
另:如果在客户表中已经确定每个客户所属的县,上面公式中我想根据已录入的县,先选出此县所有的客户,要如何修改上面的代码?
多谢!

--  作者:jspta
--  发布时间:2013/3/28 12:26:00
--  

请加上双引号,这是一个字符串,不是变量


--  作者:wqb1102
--  发布时间:2013/3/28 12:40:00
--  
是我修改时多了个联接符,已解决第一个问题。多谢!
另:如果在客户表中已经确定每个客户所属的县,上面公式中我想根据已录入的县,先选出此县所有的客户,要如何修改上面的代码?