主题：导航问题

改成这样测试

 

msgbox(e.page.name)

msgbox(e.page.text)

Select Case e.Page.Text
    Case  "职工信息"

msgbox(e.link.Name)

msgbox(e.link.Text)
        Select Case e.Link.Text

 

msgbox分别弹出什么，是用name还是text？

 

不会调试请上传实例说明

Select Case e.Link.Text

 

改成

 

Select Case e.Link.Name

加入代码 msgbox(e.Link.Name) 看弹出什么

 

那这句代码绝对执行了

 

        Select Case e.Link.Name
            Case "任教学科"

                 msgbox("执行了")

                 Tables("职工信息总表").Filter = "[任教学科] = '语文'"

你是不是搞错表名了？你可能看到的是窗口表，比如

 

Tables("窗口1_Table1").Filter = "[性别] = '女' and [政治面貌] = '群众'"

改成这样呢？

 

Tables("职工信息总表").Filter = "[性别] = '女' and [政治面貌] = '群众'"
msgbox(e.Link.Name)  

 

或者

 

Tables("职工信息总表").Filter = "1=2"