Dim ctl As WinForm.Control = e.Sender Select Case ctl.BindingField Case "表A.第一列", "表A.第二列", "表A.第三列" If User.Name = "张三" Then ctl.ReadOnly = BooleanEnum.False '允许编辑 Else ctl.ReadOnly = BooleanEnum.True '禁止编辑 End If End Select 参考这段代码没有起作用,不知道为何?副本表如果设置为允许编辑,每列都可以编辑了。各位帮忙看看,谢谢