主题：[求助]审核

1、你第一段是datacolchanged事件的代码，是入库管理表的代码；

2、点击按钮后，修改的是入库表的列的值，而且没有给【审核】列赋值，也和入库管理表没关系；

3、实例发上来测试，说明你要做到什么效果

代码改成

If Tables("入库") .Rows.count = 0  OrElse  Tables("入库.入库管理") .Rows.count = 0 Then
    MessageBox.Show("没有可审核内容!")
    Return
End If

If  User.IsRole ("审核")  Then
    Tables("入库").Current("审核人") = User.Name
    Tables("入库").Current("审核") = True
    Tables("入库").Current("审核日期") = Date.now
    For Each r As Row In Tables("入库.入库管理").rows
        r("审核人") = user.name
        r("审核") = True
        r("审核日期") = Date.now
    Next
    Tables("入库.入库管理").Save()
    Tables("入库").Current.Save()
Else
    MessageBox.show("你无审核权限!")
End If

If Tables("入库") .Rows.count = 0  OrElse  Tables("入库.入库管理") .Rows.count = 0 Then
    MessageBox.Show("没有可审核内容!")
    Return ""
End If

If  User.IsRole ("审核")  Then
    Tables("入库").Current("审核人") = Nothing
    Tables("入库").Current("审核") = False
    Tables("入库").Current.Locked = False
    Tables("入库").Current("审核日期") = Nothing
    For Each r As Row In Tables("入库.入库管理").rows
        r("审核人") = Nothing
        r("审核") = False
        r.locked = False
        r("审核日期") = Nothing
    Next
    Tables("入库.入库管理").Save()
    Tables("入库").Current.Save()
Else
    MessageBox.show("你无审核权限!")
End If