主题：窗口表权限控制问题

1、

For Each dr1 As DataRow In DataTables("授权表").Select("',' + 分组名 + ',' like '%," & _Usergroup & ",%' And 窗口 = '" & e. Form.Name & "'")
    Dim ctls() As String = dr1("控件").split(",")
    For Each c As String In ctls
        Dim obj = e.Form.Controls(c)
        If TypeOf obj Is winform.Table Then
            obj.visible = Not dr1("不可见")
            obj.Table.AllowEdit = Not dr1("不可编辑")
        Else
            obj.visible = Not dr1("不可见")
            obj.Enabled = Not dr1("不可编辑")
        End If
    Next
Next

2、窗口表的权限控制，只能在窗口afterLoad事件，或者prepareEdit/startEdit事件控制。