Dim r As Row = Tables("ftdjb").Current
If r IsNot Nothing Then
If r.isnull("审核") OrElse r.isnull("批准") Then
MessageBox.Show("无审核/批准签字确认,不能确认晒图/发图!", "提示")
Else
If User.Group = "晒图员" Then
r("晒图") = True
r.Save()
Else
MessageBox.show("你无权确认晒图/发图 !!!")
End If
End If
End If
这是我模仿您前几天给我写的代码,我的目的是想实现以下功能:晒图员在 审核、批准都已经签字确定的情况下在 “已晒图” “已发图” 列打钩确认,若“已晒图” “已发图”为空,则给出提示,"无审核/批准签字确认,不能确认晒图/发图!"
我是把这段程序放在了 表属性 -事件-BeforeCheckRow 下边了,但是无法得到我要的结果,没有任何反应,老大我的问题出在哪里了?正确代码是什么?万分感谢