测试交流天地
检测父级树内容,并赋值“产品”
上一篇 /
下一篇 2013-12-03 01:45:12
/ 个人分类: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
收藏
举报
TAG: