- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 两个if语句 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147674)
-- 发布时间：2020/3/21 17:10:00
-- 两个if语句
两个if语句
If e.DataRow("计划审定") = True Then
MessageBox.Show("该计划考核人已审定,不能删除!", "提示")
e.Cancel = True
End If
If e.DataRow("姓名") <> User.Name Then
MessageBox.Show("只有员工本人才能删除本人计划!", "提示")
e.Cancel = True
End If
MessageBox.Show("该计划考核人已审定,不能删除!", "提示")
e.Cancel = True
End If
If e.DataRow("姓名") <> User.Name Then
MessageBox.Show("只有员工本人才能删除本人计划!", "提示")
e.Cancel = True
End If
如果第一个if成立，显示“该计划考核人已审定,不能删除!”，不执行第二个if。如果第一个if不成立，在执行第二个。以上代码如何修改。
-- 发布时间：2020/3/21 17:11:00
--
If e.DataRow("计划审定") = True Then
MessageBox.Show("该计划考核人已审定,不能删除!", "提示")
e.Cancel = True
elseIf e.DataRow("姓名") <> User.Name Then
MessageBox.Show("只有员工本人才能删除本人计划!", "提示")
e.Cancel = True
End If
-- 发布时间：2020/3/21 17:23:00
--
group分为“科员”，“部门负责人”，“分管领导”。部门负责人考核科员，分管领导考核部门负责人。当列“指定考核人”选定后，如何才能让列“考核人计划审定”只有相应的“指定考核人”操作，其他人没有权限。
此主题相关图片如下：qq截图20200321171728.png
-- 发布时间：2020/3/21 17:28:00
--
PrepareEdit事件
If e.Col.Name = "考核人计划审定" AndAlso User.Group <> e.Row("指定考核人") Then
e.Cancel = True
End If
End If
-- 发布时间：2020/3/21 17:33:00
--
如张三为科员，李四为部门负责人，王五为分管领导。 李四的指定考核人为王五，只有王五才能编辑“考核人计划审定”；或者张三的指定考核人为李四，只有李四才能编辑“考核人计划审定”。
-- 发布时间：2020/3/21 17:57:00
--
已经尝试解决。