主题：[求助]权限

员工添加窗口通过授权表授权后不可见，我在菜单的工作窗口的按钮中打开对话框显示你无权操作，按确定按钮后表和对话框就不动了。

例子里面，你在哪个地方点击哪个按钮？截图或者详细说明。

此主题相关图片如下：2017-11-13 10 54 57.png

Dim e As Object = Args(0)
For Each dr As DataRow In DataTables("授权表").Select("分组名 = '" & User.Name & "'And  窗口名 = '" & e.Form.Name & "'")
    If dr("按扭名") = Nothing Then
        msgbox("你无权打开窗口")
        e.Form.close
        unlockbasemainform
        Return Nothing
    Else
        e.Form.Controls(dr("按扭名")).Visible = not dr("不可见")
        e.Form.Controls(dr("按扭名")).Enabled = not dr("不可编辑")
    End If
Next
Return True

谢谢老师

老师，是上面的例子

此主题相关图片如下：2017-11-13 14 37 39.png

 没看懂你要做什么。在哪里、怎么操作、得到什么效果？设置后，又要实现什么功能？

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

点击浏览该文件:员工添加.rar

此主题相关图片如下：2017-11-13 19 55 54.png

Dim e As Object = Args(0)
For Each dr As DataRow In DataTables("授权表").Select("',' + 分组名 + ',' like '%," & User.Name & ",%' And  窗口名 = '" & e.Form.Name & "'")
    If dr("按扭名") = Nothing Then
        msgbox("你无权打开窗口")
        e.Form.close
        unlockbasemainform
        Return Nothing
    Else
        e.Form.Controls(dr("按扭名")).Visible = not dr("不可见")
        e.Form.Controls(dr("按扭名")).Enabled = not dr("不可编辑")
    End If
Next
Return True

老师，用户分组可以授权吗？譬如，有点窗口只有采购部有权打开，有点只有销售部可以打开。