- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]在菜单上设置了控件用来筛选。求代码。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=12446)
-- 发布时间：2011/9/3 16:00:00
-- [求助]在菜单上设置了控件用来筛选。求代码。
在菜单上设置了控件用来筛选
要求：输入部分“X光号码”或者部分“姓名”列的内容都可以筛选满足条件的记录。
“X光号码”列和“姓名”列都已经设置为字符格式了。
请大家帮忙看下“筛选”按键的代码。谢谢。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:x光管理.table |
[此贴子已经被作者于2011-9-3 16:00:41编辑过]
-- 发布时间：2011/9/3 16:16:00
--
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
-- 发布时间：2011/9/3 16:24:00
-- 谢谢，感动中。。。
还是在不断的实践中学习，效率才高。