主题：[求助]窗口页面授权代码修改

老师你好,窗口页面授权代码如下;

根据''页面授权表''控制窗口中的页面的隐藏与显示,代码如下:

For Each pg  As WinForm.TabPage In e.Form.Controls("查询").TabPages
    For Each dr As DataRow In DataTables("页面授权表").Select("用户名 = '" & User.Name & "' and  窗口名 = '" & e.Form.Name & "'")
        Dim ctls() As String = dr("页面名").split(",")
        For Each c1 As String In ctls
            pg.Visible = not dr("不可见")
        Next
    Next  
Next

麻烦老师修改一下