以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  TabControl问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88180)
--  作者：douglas738888
--  发布时间：2016/7/28 13:24:00
--  TabControl问题
请教老师，下面代码没有反应，哪里有问题

代码是写在TABLE属性 DOUBLECLICK里面

TabControl1控件是在TabControl2里面的

If e.Col.Name = "任务安排" Then         
    e.Cancel = True \'禁止进入编辑状态
        If Forms("立项策划").Opened Then
        If e.Row("任务安排") = "任务安排" Then        
            Dim tab As WinForm.TabControl = Forms("立项策划").Controls("TabControl1")
            tab.SelectedPage = tab.TabPages("工程任务分派")       
        End If
    End If
End If
--  作者：Hyphen
--  发布时间：2016/7/28 14:47:00
--  
TabPages名称是不是"工程任务分派"，不能使用标题
--  作者：douglas738888
--  发布时间：2016/7/29 11:56:00
--  
老师，我换了写法，还是打不开要指定的 TABCONTROL     TabControl2  里面包含 TabControl4，请老师看看

Select Case e.Link.Name
    Case "进入立项策划"
    e.Form.Controls("TabControl1").SelectedIndex = 3  \'打开主窗口工作策划页面
    Case "部门任务"
        Forms("立项策划").Open()
            Dim tab As WinForm.TabControl = Forms("立项策划").Controls("TabControl2")
                tab.SelectedIndex = 1
            Dim tab1 As WinForm.TabControl = Forms("立项策划").Controls("TabControl4")
                tab1.SelectedIndex = 0
End Select
--  作者：douglas738888
--  发布时间：2016/7/29 12:18:00
--  
已解决，模式窗口，改为独立窗口