Function Defects_Attachment_CanDelete(Attachment)
On Error Resume Next
Defects_Attachment_CanDelete = Project_DefaultRes
‘添加只有在project角色里面才可以删除附件
IF User.IsInGroup("project") THEN
Defects_Attachment_CanDelete = TRUE
ELSE
Defects_Attachment_CanDelete =FALSE
MsgBox "The user " & User.UserName & " doesn't has permissions."
END IF