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

在菜单上设置了控件用来筛选
要求：输入部分“X光号码”或者部分“姓名”列的内容都可以筛选满足条件的记录。
“X光号码”列和“姓名”列都已经设置为字符格式了。
请大家帮忙看下“筛选”按键的代码。谢谢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:x光管理.table

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

 

 

还是在不断的实践中学习，效率才高。