[原创] QC-检测父级树内容，并赋值“产品”

[复制链接]

james.zhong

TA的每日心情

	无聊 2015-12-2 10:12

签到天数: 5 天

连续签到: 1 天

[LV.2]测试排长

电梯直达

1^#

发表于 2013-12-3 01:41:21 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

检测父级树内容，并赋值“产品”
Sub Requirements_Req_AfterPost
  On Error Resume Next
  'dim ra
  if (left(Req_Fields.Field("RQ_REQ_PATH").Value,3) ="AAF"or left(Req_Fields.Field("RQ_REQ_PATH").Value,3) ="AAB")and Req_Fields.Field("RQ_REQ_PRODUCT").Value="" then
   Req_Fields.Field("RQ_REQ_PRODUCT").Value= "餐饮"
  end if
  if (left(Req_Fields.Field("RQ_REQ_PATH").Value,3) ="AAG"or left(Req_Fields.Field("RQ_REQ_PATH").Value,3) ="AAA")and Req_Fields.Field("RQ_REQ_PRODUCT").Value="" then
   Req_Fields.Field("RQ_REQ_PRODUCT").Value= "餐饮"
' else
  ' ra= Req_Fields.Field("RQ_REQ_PATH").Value
  ' msgbox ra
  end if
  On Error GoTo 0
End Sub

error, 餐饮, 产品, 检测