Foxtable(狐表)用户栏目专家坐堂 → TabControl问题


  共有1937人关注过本帖树形打印复制链接

主题:TabControl问题

帅哥哟,离线,有人找我吗?
douglas738888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
TabControl问题  发帖心情 Post By:2016/7/28 13:24:00 [只看该作者]

请教老师,下面代码没有反应,哪里有问题

代码是写在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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/7/28 14:47:00 [只看该作者]

TabPages名称是不是"工程任务分派",不能使用标题

 回到顶部
帅哥哟,离线,有人找我吗?
douglas738888
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2016/7/29 12:18:00 [只看该作者]

已解决,模式窗口,改为独立窗口

 回到顶部