平台中编辑窗体控件权限的控制

时　间:2013-09-20 11:40:06
作　者:杜   ID：6730  城市：深圳
摘　要:我们经常会遇到共用窗体，也就是多人完成的情况，但各控件的权限需要设定
正　文:

'========================
Public Function ControlRights(frm As Form)
    Dim Ctl As Control
    For Each Ctl In frm.Controls
        If TypeOf Ctl Is TextBox or TypeOf Ctl Is ComboBox Then
            If Ctl.Tag <> "" Then
                If Right(Ctl.Tag, 5) = Forms!sysfrmmain!dcode Then  'dCode = <XXX>
                    Ctl.Enabled = True
                Else
                    Ctl.Enabled = False
                End If
            Else
                Ctl.Enabled = True    '共用字段，如备注等
            End If
        End If
    Next
End Function
'========================