For Each dr As DataRow In DataTables("窗口权限").sqlSelect(" ','+角色用户+',' like '%," & _UserGroup & ",%' And 窗口名 = '" & e.Form.Name & "' And 权限开始日期 <= '" & Date.Today & "' And 权限结束日期 >= '" & Date.Today & "' " )
e.Form.Controls(dr("控件名")).Enabled = Not dr("权限锁定")
e.Form.Controls(dr("控件名")).visible = Not dr("权限不可见到")