主题：在菜单中设计一个模糊筛选

大概是这样子吧

Dim txt As String = RibbonTabs("功能区1")("功能组1")("组合框1").text '为菜单自定义组合框
Dim tbl As Table = Tables("表名") '实际表名
If txt = "" Then
tbl.Filter = ""
Else
txt = "'*" & txt & "*'"
tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If