Foxtable(狐表)用户栏目专家坐堂 → 自己做的系统,新添加的用户打不开页签


  共有2604人关注过本帖平板打印复制链接

主题:自己做的系统,新添加的用户打不开页签

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


加好友 发短信
等级:小狐 帖子:364 积分:3491 威望:0 精华:0 注册:2012/7/24 7:15:00
自己做的系统,新添加的用户打不开页签  发帖心情 Post By:2019/1/7 14:46:00 [只看该作者]

自己做的项目,今天新增加了一个用户,可以登录,但不显示页面集合中的页签了,页面集合设置了如下代码:
'点击任务栏中任务时,页面集合显示相应页面,并显示在打开的页面,可关闭页面,
Dim tab As WinForm.TabControl = e.Form.Controls("页面集合")
Dim count As Integer = 0
For Each p As object In tab.TabPages
    If p.visible Then count += 1
Next
If tab.TabPages(e.Link.Name) Is Nothing Then
    tab.TabPages.Add(e.Link.Name,e.Link.Name)
Else
    If tab.TabPages(e.Link.Name).Visible = False Then
        Dim btab = tab.basecontrol
        btab.tabpages.Insert(count, btab.TabPages(e.Link.Name))
        tab.TabPages(e.Link.Name).Visible  = True
    Else
        tab.TabPages(e.Link.Name).Visible  = True
    End If
End If
tab.SelectedPage = tab.TabPages(e.Link.Name)

不知怎么回事?请老师指点,谢谢,需要其他材料我再上传!


 回到顶部