工作列中有3种内容"部门例会布置工作" 、 "公司例会布置工作"、"个人工作总结"
在PrepareEdit写入：
第一段代码希望：当责任人有用户（ _Username ）、且工作属于"个人工作总结" 时，则才能对"进度","完成情况","工作内容"这3列进行修改。
Select Case e.Col.Name
Case "进度","完成情况","工作内容"
If e.Row("责任人") Like "*" & _Username & "*" And e.Row("工作") = "个人工作总结" Then
e.Cancel = False
Else
e.Cancel = True
End If
End Select
这一段是设想：当工作属于"部门例会布置工作" 或 "公司例会布置工作"时，只有具有“审核”权限的人才能对这3列进行修改
Select Case e.Col.Name
Case "责任人","完成时间","工作内容"
If Functions.execute("Shouquan", "周工作", "审核") And (e.Row("工作") = "部门例会布置工作" Or e.Row("工作") = "公司例会布置工作") Then
e.Cancel = False
Else
e.Cancel = True
End If
If e.Row("工作") = "个人工作总结" Then
e.Cancel = False
End If
End Select
实际运行时，单独运行，权限争取，如两段放在一起则发现权限冲突，如何实现设想，如何修改，谢谢
加好友 
发短信
Post By：2015/12/30 16:54:00 [显示全部帖子]
