主题：[求助]锁定

 

Select Case e.Col.Name

                    Case "结欠_付款金额","结欠_欠款金额"

                        If e.Row("初审") = True Then

                            e.Cancel = True

                        End If

                End Select

老师，上面代码是手工打勾禁止编辑指定的列。现在我想改成，当"结欠_欠款金额"列发生变化后自动打勾并锁指定的列。

Select Case e.Col.Name
   
    Case "结欠_付款金额","结欠_欠款金额"
       
        If e.Row.isnull("结欠_欠款金额") = False Then
            e.cancel = True
        End If
       
End Select

老师，我希望初审列打钩

 

datacolchanged事件

 

Select Case e.DataCol.Name
   
    Case "结欠_欠款金额"
       
        e.DataRow("初审") = True
       
End Select

老师，怎样解除禁止编辑

 如果用你原来的代码，解除锁定，就把 初审 取消勾选

就用老师你写的代码然后来解除禁止编辑

 

单独做一个按钮写入代码

 

Tables("表A").Current("结欠_欠款金额") = Nothing

谢谢老师