主题：[求助]在菜单上设置了控件用来筛选。求代码。

MainTable = Tables("患者信息")
Dim xray As String
Dim name As String
With RibbonTabs("日常工作").Groups("筛选")
    xray = .Items("xray").Text
    name = .Items("name").Text
End With
Tables("患者信息").Filter = "[X光号码] like '*"  & xray & "*' And [姓名] Like '*" & name & "*' "

1、你表名作了，不是患者情况，是患者信息

2、表达式只有or 和and,没有orelse和andalso

3、菜单文本框只有text属性，没有value属性。

4、合成的表达式不对。

参考资料：

http://www.foxtable.com/help/topics/0102.htm

http://www.foxtable.com/help/topics/1111.htm