主题：部分筛选

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)

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

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

参考代码

Dim str As String = "fo&xta!bl#e d"
str = System.Text.RegularExpressions.Regex.replace(str, "[!&,\. #]", "")
msgbox(str)

看不懂你例子想要表达的意思。