以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  批量取消审核  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97456)
--  作者：qinlao666
--  发布时间：2017/3/13 8:46:00
--  批量取消审核

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

 

老师请帮我看下这行代码哪里出现问题，现在测试结果是不管审批列是否为空，都不能取消审核列
--  作者：有点蓝
--  发布时间：2017/3/13 9:07:00
--  
代码没有问题，应该是其它事件影响到了
--  作者：qinlao666
--  发布时间：2017/3/13 9:32:00
--  

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这个条件取消，就能取消审核

请教下老师，会是什么其他事件影响到了
--  作者：有点蓝
--  发布时间：2017/3/13 9:55:00
--  

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

 

是“审批”还是“审核”？
--  作者：qinlao666
--  发布时间：2017/3/13 11:23:00
--  
问题解决了，谢谢老师