主题：审批反馈问题

If User.Group = "经理" Then
    Tables("表A").Current("审批人") = User.Name
    Tables("表A").Current("审批日期") = Date.Today()
Else
    MessageBox.show("你无审批权限!")
End If

当然还得来个取消审批的按钮，代码为：

If User.Group = "经理" Then
    Tables("表A").Current("审批人") = Nothing
    Tables("表A").Current("审批日期") = Nothing
Else
    MessageBox.show("你无取消审批权限!")
End If

最后将表事件PrepareEdit的代码设置为：

If e.Row.IsNull("审批人") = False Then '如果审批人列不为空
    e.Cancel = True '则禁止编辑
End If

根据帮助上的文档，经理审批完，怎样在软件中同步信息，让录入员无法对改行进行编辑？是必须用openqq吗？

让录入员定时刷新行不行？是不是存在刷新间隔时间中，如果经理已经审批完毕，而录入员还在修改数据，这样造成已经审批的数据还是被录入员修改了。

对对，我就是要这样的方法，哈哈，谢谢，openqq看起来挺麻烦。

老师，有没有示例语句啊？

多谢

sql server，保存了，有符合条件的数据。

可以了。