主题：审核按钮报错

1、这段代码没问题。

2、看看你datacolchanged事件、currentChanged事件，应该有问题。加上msgbox调试一下。

改成

If User.Group = "经理" Then
    If Tables("待审核订单_Table1").Current IsNot Nothing Then
        Dim r = Tables("待审核订单_Table1").Current
        r("状态") = "已审核"
        r("审核人") = UserName
        r("审核日期") = Date.Today()
        r.Save()
    End If
Else
    MessageBox.show("你无审核权限!")
End If

你修改表值的时候，触发了筛选，把行隐藏了，你再调用current的时候已经没有数据导致的。