标题: QC-检测父级树内容，并赋值“产品” [打印本页] 作者: james.zhong 时间: 2013-12-3 01:41 标题: QC-检测父级树内容，并赋值“产品” 检测父级树内容，并赋值“产品”
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