TA的每日心情 | 奋斗 2015-11-26 10:09 |
---|
签到天数: 1 天 连续签到: 1 天 [LV.1]测试小兵
|
Function Requirements_Req_FieldCanChange(FieldName, NewValue)
On Error Resume Next
dim fl
fl=Req_Fields.Field("RQ_USER_08").Value
if( FieldName="RQ_USER_08" and Req_Fields.Field("RQ_USER_07").Value ="BUG")then
NewValue=fl
Req_Fields.Field("RQ_USER_08").Value=NewValue
msgbox NewValue
return NewValue
end if
Requirements_Req_FieldCanChange = Project_DefaultRes
On Error GoTo 0
End Function
我的想法是:当RQ_USER_07的值=BUG时,RQ_USER_08字段的值不允许修改,以上代码是借助中间变量把原来的值重新付回去, msgbox NewValue
显示是正确的,但是每次都把RQ_USER_08的值修改了,请教请教,求解决办法??? |
|