以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  TopicBar角色权限  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111731)
--  作者：有点甜
--  发布时间：2017/12/28 14:56:00
--  

窗口AfterLoad事件，参考代码

 

Dim p = Forms("窗口1").Controls("TopicBar1").Pages(0)

If user.Roles = "跟单员" Then
    Dim tl1 As WinForm.TopicLink
    tl1 = p.Links("增加")
    tl1.Visible = True
    tl1 = p.Links("删除")
    tl1.Visible = False
ElseIf user.Roles = "录入员" OrElse user.roles = "检查员" Then
    Dim tl1 As WinForm.TopicLink
    tl1 = p.Links("增加")
    tl1.Visible = False
    tl1 = p.Links("删除")
    tl1.Visible = False
End If