新手上路,希望老师指点一下。
因为数据量大,对于帮助文件中,实现领导审批功能的这一段代码,我需要怎么修改才能实现将选中的多行一键审批?
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
请狐爸帮忙完善一下