Foxtable(狐表)用户栏目专家坐堂 → 未声明名称?


  共有7641人关注过本帖树形打印复制链接

主题:未声明名称?

帅哥哟,离线,有人找我吗?
wqb1102
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:321 积分:2210 威望:0 精华:0 注册:2008/8/31 22:37:00
未声明名称?  发帖心情 Post By: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 等,但我看前面的代码中没有声明名称的字段。


 回到顶部
帅哥哟,离线,有人找我吗?
muhua
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2013/3/28 12:00:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
wqb1102
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:321 积分:2210 威望:0 精华:0 注册:2008/8/31 22:37:00
  发帖心情 Post By:2013/3/28 12:24:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
jspta
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1732 积分:11266 威望:0 精华:0 注册:2011/12/15 22:06:00
  发帖心情 Post By:2013/3/28 12:26:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
wqb1102
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:321 积分:2210 威望:0 精华:0 注册:2008/8/31 22:37:00
  发帖心情 Post By:2013/3/28 12:40:00 [只看该作者]

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

 回到顶部