主题：[讨论]从导航栏开始学习权限管理

增加了一段代码:

e.Form.Controls("NavBar1").SelectedIndex=0

选定第一个页面.

任务栏权限应该类似吧?试试,先帖导航栏的代码留作笔记:

For Each np As WinForm.NavPage In e.Form.Controls("NavBar1").NavPages
    For Each wc As WinForm.Control In np.Children
        If Typeof wc Is WinForm.TopicBar Then
            Dim tb As WinForm.TopicBar = wc
            For Each tp As WinForm.TopicPage In tb.Pages
                tp.Visible=False
            Next
        End If
    Next
    np.Visible=False
Next

For Each dr As DataRow In DataTables("导航权限").Select("可见 = '" & User.name & "' or 可见 like '" & User.name & ",*' or 可见 like '*," & User.name & ",*' Or 可见 like '*," & User.name & "'")
    For Each np As WinForm.NavPage In e.Form.Controls("NavBar1").NavPages
        If np.ButtonText=dr("NavPages") Then
            np.Visible=True
            For Each s As String In dr("TopicPage").split(",")
                For Each wc As WinForm.Control In np.Children
                    If Typeof wc Is WinForm.TopicBar Then
                        Dim tb As WinForm.TopicBar = wc
                        For Each tp As WinForm.TopicPage In tb.Pages
                            If tp.Text=s Then
                                tp.Visible=True
                            End If
                        Next
                    End If
                Next
               
            Next
        End If
    Next
Next
e.Form.Controls("NavBar1").SelectedIndex=0

任务栏和导航栏不一样呢,没有Children属性,不能照搬上面的代码.

小白请问第一段代码改成这样行不行:

For Each t As TopicPage In TopicBar1

    t.Visible = False

    For Each c As TopicLinks In t

        c.Visible = False

           Next

Next

任务name表达?

用以下代码出现错误提示:

For Each tp As WinForm.TopicPage In e.Form.Controls("TopicBar1").TopicPage

tp.Visible=False
For Each lk As Topiclink In tb
                lk.Visible=False
            Next
       
   
Next

For Each dr As DataRow In DataTables("任务权限").Select("可见 = '" & User.name & "' or 可见 like '" & User.name & ",*' or 可见 like '*," & User.name & ",*' Or 可见 like '*," & User.name & "'")
   For Each tp As WinForm.TopicPage In e.Form.Controls("TopicBar1").TopicPage

        If tp.Text=dr("TopicPage") Then
            tp.Visible=True
                                  For Each lk As Topiclink In tb

                            If lk.Text= dr("Links") Then
                                lk.Visible=True
                            End If
                        Next
                    End If
                Next

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:权限管理 (1).table

改了还是不行.

For Each tp As WinForm.TopicPage In e.Form.Controls("TopicBar1").TopicPage
    tp.Visible=False
    For Each lk As WinForm.TopicLink In tp
        lk.Visible=False
    Next
   
Next
For Each dr As DataRow In DataTables("任务权限").Select("可见 = '" & User.name & "' or 可见 like '" & User.name & ",*' or 可见 like '*," & User.name & ",*' Or 可见 like '*," & User.name & "'")
    For Each tp As WinForm.TopicPage In e.Form.Controls("TopicBar1").TopicPage
        If tp.Text=dr("TopicPage") Then
            tp.Visible=True
            For Each lk As WinForm.TopicLink In tp
                If lk.Text= dr("Links") Then
                    lk.Visible=True
                End If
            Next
        End If
    Next

不好意思,写了,但是不正确导致无法保存,出现空白现象.

修改后可以保存,但是又提示运行错误,不知道哪儿的问题.

Public member 'TopicPage' on type 'TopicBar' not found.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:权限管理 (1).table