以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  审批权限  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117335)
--  作者：cd_tdh
--  发布时间：2018/4/10 21:21:00
--  
先判断不等于，顺序反一下。
[此贴子已经被作者于2018/4/10 21:21:49编辑过]
--  作者：有点蓝
--  发布时间：2018/4/10 21:38:00
--  
运行有什么问题？具体说明
--  作者：有点蓝
--  发布时间：2018/4/10 22:14:00
--  
说明登录用户不是负责人：_UserName = "项目负责人"

msgbox（_UserName）
--  作者：有点蓝
--  发布时间：2018/4/10 22:48:00
--  
dim r as row = Tables("项目明细").Current
If _UserName = r("项目负责人") Then
    r("分配状态") = "已完成"
    r("节点分配日期") = Date.Today()
    r.Save()
Else
    MessageBox.show("你无审核权限!")
End If