主题：权限管理的几个问题

1、

Dim dt As DataTable = DataTables("授权表")
For Each dr As DataRow In dt.Select("窗口 = '主页' and 分组名 = '" & _UserGroup & "' and 控件 is null")
    If dr("不可见") Then
        e.form.close
    ElseIf dr("不可编辑") Then
        For Each c As object In e.Form.Controls
            c.Enabled = False
        Next
    End If
Next