51Testing软件测试论坛

标题: td编程控制 [打印本页]

作者: 海林 时间: 2013-4-7 16:28
标题: td编程控制
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的值修改了，请教请教，求解决办法？？？

作者: mick 时间: 2013-4-7 21:20
Req_Fields.Field("RQ_USER_08").Value=NewValue
你是把NewValue赋值给Req_Fields.Field("RQ_USER_08").Value了，所以修改了RQ_USER_08的属性了。

作者: 海林 时间: 2013-4-8 17:07
即使去掉Req_Fields.Field("RQ_USER_08").Value，修改成Req_Fields.Field("RQ_USER_08").IsModified=FALSE,仍然修改了值，请问原因及解决办法？谢谢

作者: 志在远方 时间: 2013-4-16 13:31
不太懂

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)