主题：导航问题

老师，下面红色代码为什么不执行呢？绿色的代码显示错误，是不是必须要写成兰色哪样呢。目的是想选择了“任教学科”就把任教学科这一列的“语文”筛选出来。

Select Case e.Page.Name
    Case  "职工信息"
        Select Case e.Link.Name
            Case "任教学科"
             With  Tables("职工信息总表").Filter = "[任教学科] = '语文'"
               ' With CurrentTable
                '    Dim r As Integer
                 '   r = .Find("语文", 0, 0, False, False, True)
                  '  If r > - 1 Then '如果找到符合条件的行
                   '     .Position = r '则选择该行
                    'End If
                End With
                            
                ' With Forms("信息")
                '   .Open()
                ' .Controls("导航").Value = .Controls("党建工作").Text
         'End With
            ' Functions.Execute("Subtotal")
           ' MainTable = Tables("职工信息总表")

       Case "框架模式"
            With Forms("信息")
                .Open()
                .Controls("TextBox1").Value = .Controls("框架模式").Text