以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  部分筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102018)
--  作者：yangwenghd
--  发布时间：2017/6/12 8:23:00
--  部分筛选
Tables("笔记查看窗口_Table3").Filter = "分类 Like \'%" & e.Form.Controls("ComboBox3").Text & "%\'"  \'  筛选出行\\

可以选中 ComboBox3 内的一些内容后筛选吗？ 感谢 感谢 
比如 ComboBox3有很多内容，然后只是选择几个字符，然后点击按钮筛选出选中和字符相同的内容 感谢 感谢 
--  作者：有点色
--  发布时间：2017/6/12 8:49:00
--  

Leave事件

 

vars("selstart") = e.sender.SelectionStart
vars("sellength") = e.sender.SelectionLength

 

按钮click事件

 

Dim cmb = e.Form.controls("combobox1")
Dim str As String = cmb.text.Substring(vars("selstart"),vars("sellength"))
msgbox(str)
--  作者：yangwenghd
--  发布时间：2017/6/12 8:57:00
--  
感谢 感谢  怎么把 选择是内容筛选到 窗口表啊，比如选择 字符 点击按钮，然后筛选 窗口表
Tables("笔记查看窗口_Table3").Filter = "分类 Like \'%" & e.Form.Controls("ComboBox3").Text & "%\'"  \'  筛选出行\\
和这个功能一样，只是筛选的内容是 ComboBox3内选中的内容 感谢 感谢 
--  作者：有点色
--  发布时间：2017/6/12 9:27:00
--  

 

Dim cmb = e.Form.controls("combobox1")
Dim str As String = cmb.text.Substring(vars("selstart"),vars("sellength"))

Tables("笔记查看窗口_Table3").Filter = "分类 Like \'%" & str & "%\'"

--  作者：yangwenghd
--  发布时间：2017/6/13 15:04:00
--  
感谢　感谢　可以了，可以在筛选的时候把符号和空格排除吗
比如　选择　“！！ｆｏ）ｘｔａｂｌｅ”　　点击按钮　然后把列里能对上　ｆｏｘｔａｂｌｅ　都显示出来，　就是只要他们都在排除了符号空格字母后，字母顺序对的都显示出来

比如　选择　　“！！ｆｏ）ｘｔａｂｌｅ”　　点击按钮　　如果列里有　ｆｏ＆ｘｔａ！ｂｌ＃ｅｄ　也会被筛选出来。因为在他们把符号和空格排除后　列的字母包含了搜索的字母（和之前筛选一样，）。　感谢　感谢　
--  作者：有点色
--  发布时间：2017/6/13 16:21:00
--  

参考代码

 

Dim str As String = "fo&xta!bl#e d"
str = System.Text.RegularExpressions.Regex.replace(str, "[!&,\\. #]", "")
msgbox(str)
--  作者：yangwenghd
--  发布时间：2017/6/13 18:57:00
--  
能在帮忙看看吗？是那里错了啊？
Dim cmb = e.Form.controls("TextBox2")
Dim str As String = "fo&xta!bl#e d"
str = cmb.Text.RegularExpressions.Regex.replace(str, "[!&,\\. #]", "")
Tables("手机单词窗口_Table2").Filter = "目录_英文 Like \'%" & str & "%\'"

感谢 感谢 
--  作者：有点蓝
--  发布时间：2017/6/13 20:24:00
--  
Dim cmb = e.Form.controls("TextBox2")
Dim str As String = cmb.Text
str = System.Text.RegularExpressions.Regex.replace(str, "[!&,\\. #]", "")
Tables("手机单词窗口_Table2").Filter = "目录_英文 Like \'%" & str & "%\'"
--  作者：yangwenghd
--  发布时间：2017/6/13 22:32:00
--  
.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.3.18.1
错误所在事件：
详细错误信息：
语法错误:“sRobert”运算符后缺少操作数。
感谢，感谢
--  作者：有点蓝
--  发布时间：2017/6/13 22:41:00
--  
msgbox("目录_英文 Like \'%" & str & "%\'")

看弹出什么内容