- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]以逗号分隔的多个筛选对象，代码没起作用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119784)
-- 发布时间：2018/5/31 21:28:00
-- [求助]以逗号分隔的多个筛选对象，代码没起作用
在文本框录入“106,1140”等案号数字，筛选没起作用，文本框TextChanged代码如下，请老师指教，谢谢！
Dim vals As String = e.form.controls("TextBox1").Text
Dim flt As String
For Each val As String In vals.Split(",")
If flt > "" Then
flt = flt & " Or "
End If
flt = flt & "案号 Like \'" & val & "\'"
Next
Tables("应诉通知书_Table1").Filter = flt
此主题相关图片如下：image 2.jpg
[此贴子已经被作者于2018/5/31 21:43:57编辑过]
-- 发布时间：2018/5/31 22:34:00
--
参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119635&skin=0
-- 发布时间：2018/6/1 9:01:00
--
还不行，文本框TextChanged代码如下：
With e.Form.Controls("TextBox1")
If .text IsNot Nothing Then
Dim Filter As String
If Filter >"" Then
Filter = Filter & " And "
End If
Dim str As String = "1=1"
For Each s As String In .text.split(",")
str &= " or 案号 Like \'%" & .text & "%\'"
Next
Tables("窗口1_Table1").Filter = Filter & " (" & str & ") "
End If
End With
此主题相关图片如下：image 1.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:多值筛选.table |
-- 发布时间：2018/6/1 9:14:00
--
With e.Form.Controls("TextBox1")
If .text IsNot Nothing Then
Dim str As String = "1=2"
For Each s As String In .text.split(",")
If s > "" Then
str &= " or 案号 Like \'%" & s & "%\'"
End If
Next
Tables("窗口1_Table1").Filter = str
End If
End With