主题：[求助]锁定

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