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作者: 金品炒青 时间: 2005-12-29 18:09
方法不错
在配置里面没找到这个函数