此主题相关图片如下:筛选.jpg
筛选按键的代码:
Dim cz As String
Dim xm As String
Dim name As String
With RibbonTabs("日常工作").Groups("排序与筛选")
cz = .Items("cz").Text
xm = .Items("xm").Text
name = .Items("name").Text
End With
CurrentTable.Filter = "[初诊登记号] Like '*" & cz & "*' And [项目登记号] Like '*" & xm & "*' And [姓名] Like '*" & name & "*' "