Dim ctl As WinForm.Control = e.Sender Select Case ctl.BindingField Case "工程设计任务书.工程策划副表设计任务时间明细.任务阶段要求" If _UserGroup = "技术管理" orelse _UserGroup = "负责人" Then ctl.ReadOnly = BooleanEnum.False '允许编辑 Else ctl.ReadOnly = BooleanEnum.True '禁止编辑 End If End Select