主题：如何复制设计好的窗口或打开页面集合中的指定页面？

参考：

http://www.foxtable.com/help/topics/0831.htm

用这个方法，找出出错的代码：

http://www.foxtable.com/help/topics/1284.htm

然后分析原因，搞不定，就贴出代码，然后告诉大家哪一行代码有错。

你让别人捉迷藏？

至少应该说明一下，在什么地方写了代码？ 目的是什么? 怎么操作会出现问题？

B是哪个表？

其实知道需要，就很简单。

问题可以简化为：

1、如果知道当前选择的列？

2、如何隐藏和显示TabControl页面？

置B表的AfterSelChange事件：

http://www.foxtable.com/help/topics/0645.htm

If Forms("窗口名").opened Then
    Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
    Select Case c.name
        Case "列名一"
            Dim tab As WinForm.TabControl = Forms("窗口名").Controls("TabControl1")
            For i As Integer = 0 To tab.TabPages.count - 1
                tab.TabPages(i).Visible = (i = 0) '只显示第一页
            Next
        Case "列名二"
            Dim tab As WinForm.TabControl = Forms("窗口名").Controls("TabControl1")
            For i As Integer = 0 To tab.TabPages.count - 1
                tab.TabPages(i).Visible = (i = 1) '只显示第二页
            Next
    End Select
End If