- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=18619)
-- 发布时间：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编辑过]
-- 发布时间：2012/4/18 23:04:00
--
这里错误：e.Sender.Filter = ""
1、代码张冠李戴；2、不知道您有何需要，想实现何种意图？
-- 发布时间：2012/4/18 23:10:00
-- 输入车牌号码查询
在TextBox1输入车牌号码自动查询!
-- 发布时间：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
-- 发布时间：2012/4/18 23:31:00
--
楼上代码还是要放在TextBox1控件的TextChanged事件中！
-- 发布时间：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
-- 发布时间：2012/4/18 23:45:00
-- 放在TextBox1控件的TextChanged事件中
放在TextBox1控件的TextChanged事件中 多个代不成功!
此主题相关图片如下：2.jpg
-- 发布时间：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编辑过]