批量取消审核 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 批量取消审核

共有1836人关注过本帖树形打印复制链接主题：批量取消审核

qinlao666

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：444 积分：3794 威望：0 精华：0 注册：2015/3/3 10:06:00

批量取消审核 发帖心情

Post By：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

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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110766 积分：563762 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/3/13 9:07:00 [只看该作者]

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

qinlao666

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：444 积分：3794 威望：0 精华：0 注册：2015/3/3 10:06:00

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

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

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110766 积分：563762 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/3/13 9:55:00 [只看该作者]

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

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

qinlao666

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：444 积分：3794 威望：0 精华：0 注册：2015/3/3 10:06:00

Post By：2017/3/13 11:23:00 [只看该作者]

问题解决了，谢谢老师

下一主题 >> << 上一主题

主题：批量取消审核