Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


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

主题：[求助]
帅哥哟，离线，有人找我吗？
tungwun
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4231 威望：0 精华：0 注册：2009/5/16 21:42:00 		[求助]  发帖心情 Post By：2012/4/18 22:10:00 [只看该作者]

请问在 TextBox1 用TextChanged 加入查询代码 出错误?


e.Sender.Filter = ""
Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        Filter = "'*" & .Value & "*'"
    End If
End With
If Filter > "" Then
    Tables("快易通資料").Filter = "車牌號碼 Like " & Filter & " Or 公司客戶名稱 Like " & Filter & " Or 工作單號 Like " & Filter & " Or 安裝員地點 Like " & Filter

End If



图片点击可在新窗口打开查看此主题相关图片如下：错误窗.jpg
图片点击可在新窗口打开查看



[此贴子已经被作者于2012-4-18 22:12:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40550 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2012/4/18 23:04:00 [只看该作者]

这里错误：e.Sender.Filter = ""
           1、代码张冠李戴；2、不知道您有何需要，想实现何种意图？
 回到顶部
帅哥哟，离线，有人找我吗？
tungwun
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4231 威望：0 精华：0 注册：2009/5/16 21:42:00 		输入车牌号码查询  发帖心情 Post By：2012/4/18 23:10:00 [只看该作者]

在TextBox1输入车牌号码自动查询!

 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40550 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2012/4/18 23:29:00 [只看该作者]

 
Dim S As String
With e.Form.Controls("TextBox1")
   If .text IsNot Nothing Then
      S = .text
      Tables("快易通資料").Filter = "車牌號碼 Like '*" & s & "*' Or 公司客戶名稱 Like '*" & s & " Or 工作單號 Like '*" & s & "*' Or 安裝員地點 Like '*" & s & "*'"
   End If
End With
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40550 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2012/4/18 23:31:00 [只看该作者]

楼上代码还是要放在TextBox1控件的TextChanged事件中！
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40550 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2012/4/18 23:34:00 [只看该作者]

这样也行：

 

With e.Form.Controls("TextBox1")
    If .text IsNot Nothing Then
        Dim S As String = .text
        Tables("快易通資料").Filter = "車牌號碼 Like '*" & s & "*' Or 公司客戶名稱 Like '*" & s & " Or 工作單號 Like '*" & s & "*' Or 安裝員地點 Like '*" & s & "*'"
    End If
End With
 
还可以这样：
 
 
If e.Sender.text IsNot Nothing Then
    Dim S As String = e.Sender.text
    Tables("快易通資料").Filter = "車牌號碼 Like '*" & s & "*' Or 公司客戶名稱 Like '*" & s & " Or 工作單號 Like '*" & s & "*' Or 安裝員地點 Like '*" & s & "*'"
End If
 回到顶部
帅哥哟，离线，有人找我吗？
tungwun
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4231 威望：0 精华：0 注册：2009/5/16 21:42:00 		放在TextBox1控件的TextChanged事件中  发帖心情 Post By：2012/4/18 23:45:00 [只看该作者]

放在TextBox1控件的TextChanged事件中 多个代不成功!


此主题相关图片如下：2.jpg
按此在新窗口浏览图片
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40550 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2012/4/18 23:55:00 [只看该作者]

Tables("快易通資料").Filter = "車牌號碼 Like '*" & s & "*' Or 公司客戶名稱 Like '*" & s & "*' Or 工作單號 Like '*" & s & "*' Or 安裝員地點 Like '*" & s & "*'"

 

手误，自己也要学会查缺找漏！

[此贴子已经被作者于2012-4-19 0:16:39编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04004 秒, 4 次数据查询