For Each c As Col In Tables("通讯录").Cols
    If c.name.Contains(e.sender.SelectedPage.text)Then
        c.Visible=True
    Else
        c.Visible=True

        c.Visible=True
    End If
Next
Select Case e.Sender.SelectedIndex
    Case 0
        Tables("窗口2_Table1").OpenView("个人信息")
    Case 1
        Tables("窗口2_Table1").OpenView("企业信息")
    Case 2
        Tables("窗口2_Table1").OpenView("查询")
End Select

 老师好，我在窗口集合有增加了一个查询页面，窗口的副表视图是跟页面跑得可是主表不动。谢谢老师给我设置一下。

不知道你具体要什么，但你作色的代码不对。

其实你把它注释一下就知道了

    If c.name.Contains(e.sender.SelectedPage.text)Then    ‘如果列名包含被选择的页标题
        c.Visible=True                   ’列的可见为真
    Else                                       ‘否则
        c.Visible=True                  ’列的可见为真

        c.Visible=True                  ‘列的可见为真
    End If

都为真，整个判断就毫无意义了。

老师说的对。你在代码后面不写字句我只是朦朦胧胧懂一点，学写代码要多少基础知识。通讯录上的代码多是老师们给我写的。老师这个代码是什么意思
"End If"老师我很想学，但感觉很难。我的窗口集合有三个页面每个页面都指向每个表视图和窗口副表视图。

刚学习的人，更要勤奋点，提问题要上例子，别人在例子中解答了，也许你看不懂，但照样用。

没有例子的话，别人做要费很多事，还不一定正确反映你的意思，如果没看懂，就不可能用上。

给你一个建议，对于不理解的语句，你可以按单个单词，复制到帮助里搜索，大部分都会有答案的。

搜不到的，应该不是狐表常用的，暂时不理解也无妨。