主题：[求助]权限

 你如何调用内部函数的？你要在各个窗口的afterLoad事件调用内部函数，如

 

Functions.Execute("授权隐藏窗口", e)

完整的错误提示是什么？提示没有找到xxx控件？

 

截图发出来，或者具体例子发上来测试。

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

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

回复9楼，没看到你的问题。

 

哪个窗口，做什么操作，要实现什么效果？

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

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

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

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

 

不明白你的意思，不就是直接在表格里面设置值，就可以了？

Dim e As Object = Args(0)
For Each dr As DataRow In DataTables("授权表").Select("(',' + 分组名 + ',' like '%," & User.Name & ",%' or ',' + 用户分组 + ',' like '%," & User.group & ",%') 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