以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口控件权限设置  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171252)
--  作者：lgj716330
--  发布时间：2021/8/23 21:13:00
--  [求助]窗口控件权限设置
\'窗口控件权限
    For Each dr11 As DataRow In DataTables("窗口控件权限表").DataRows
        If dr11.IsNull("角色") = False Then
            Dim nms() As String = dr11("角色").Split(",")
            For Each nm As String In nms
                If _UserRoles.contains(nm) Then
                    For Each dr As DataRow In DataTables("窗口控件权限表").Select("角色 like \'%" & nm & "%\'")
                        If dr.isnull("控件名称")=False Then
                            Forms(dr("窗口名称")).Controls(dr("控件名称")).Enabled = False
                        End If
                    Next
                End If
            Next
        End If
    Next
上述代码在具体窗口的AfterLoad中是有效的，但在AfterOpenProject中无效，象这样的设置只能在每个窗口单独运行吗
--  作者：有点蓝
--  发布时间：2021/8/23 21:17:00
--  
只能在每个窗口单独运行。窗口要打开了才能使用里面的控件