全表控制?
Dim ctl As WinForm.Control = e.SenderIf ctl.BindingField Like "职工信息.*" Then If _UserGroup <> "普通用户" Then ctl.ReadOnly = BooleanEnum.False '允许编辑 Else ctl.ReadOnly = BooleanEnum.True '禁止编辑 End IfEnd If