主题：请教主窗口如何设计权限

我在权限设计中使用以下代码:

If User.Type = UserTypeEnum.User Then
    For Each dt As DataTable In DataTables
        Tables(dt.Name).AllowEdit=False
        Dim dr As DataRow = DataTables("权限管理").Find("用户名 = '" & _UserName & "' and 表名 = '" & dt.Name & "'")
        If dr IsNot Nothing Then
            Tables(dt.Name).AllowEdit = dr("可编辑")
        End If
    Next
End If
存在问题是有好多表是主窗口形式,用户还是能够编辑,请教以主窗口形式存在的表如何统一设计权限(针对全部主窗口), 其它模式窗口是在表中是在选择选定列后打开的,设计表不能编辑时模式窗口就不能打开,模式窗口是不是就可以不单独设计权限了?请教大师.