“ 我在论坛里看到有人用这 代码解决答复人为自己的才能修改,可我实验后有个问题,就是我新增缺陷时也不能新增了?
请高手帮解决一下
Function Defects_Bug_FieldCanChange(FieldName, NewValue)
On Error Resume Next
Defects_Bug_FieldCanChange = Project_DefaultRes
'''''''''''
IF User.UserName=Bug_Fields.Field("BG_RESPONSIBLE").Value THEN
Defects_Bug_FieldCanChange = TRUE
ELSE
Defects_Bug_FieldCanChange = FALSE
END IF
''''''''''''
On Error GoTo 0
End Function ”