主题：批量取消审核

If  user.name = "开发者" Then
    If Tables("采购台账2017").Current.IsNull("审批") Then
        For Each r As Row In Tables("付款申请单_付款申请单").GetCheckedRows
            r("审核") = Nothing
            r("审核人") = Nothing
            r.Save()
        Next
    Else
        MessageBox.Show("此行已被批准,不能取消审核!")
    End If
   
   
Else
    MessageBox.show("你无取消审核权限!")
End If

 

老师请帮我看下这行代码哪里出现问题，现在测试结果是不管审批列是否为空，都不能取消审核列

代码没有问题，应该是其它事件影响到了

If  user.name = "开发者" Then
    For Each r As Row In Tables("付款申请单_付款申请单").GetCheckedRows
        r("审核") = False
        r("审核人") = Nothing
        r.Save()
    Next
Else
    MessageBox.show("你无取消审批权限!")
End If

 

老师，我把If Tables("采购台账2017").Current.IsNull("审批") Then这个条件取消，就能取消审核

请教下老师，会是什么其他事件影响到了

试试If Tables("采购台账2017").Current.IsNull("审批") =false

 

是“审批”还是“审核”？

问题解决了，谢谢老师