ClearQuest的動態關聯

領測軟件測試網

    Set sessionObj = GetSession()
    prj_name = GetFieldValue(\"item\").GetValue()
 
    Set queryObj = sessionObj.BuildQuery(\"one_menu\")
 
    queryObj.BuildField (\"model_one_menu\")
 
    Set filterObj = queryObj.BuildFilterOperator(AD_BOOL_OP_AND)
    filterObj.BuildFilter \"pm\", AD_COMP_OP_EQ, prj_name
    Set resultSetObj = sessionObj.BuildResultSet(queryObj)
 
    resultSetObj.Execute
 
    Do While resultSetObj.MoveNext = AD_SUCCESS
        choices.AddItem resultSetObj.GetColumnValue(1)
        SessionObj.OutputDebugString resultSetObj.GetColumnValue(1)
    Loop
 
3、新建一個field，其field name為：“二級菜單”，type為：REFERENCE，其Reference To為：“二級菜單”。其choice list為BASIC，點Basic的右鍵，點Hook properties；在出現的對話框中選中：Recalculate choice List.其代碼如下：
  Dim sessionObj
    Dim queryObj
    Dim filterObj
    Dim resultSetObj
    Dim prj_name Set sessionObj = GetSession()
    prj_name = GetFieldValue(\"one_menu\").GetValue()
 
    Set queryObj = sessionObj.BuildQuery(\"two_menu\")
 
    queryObj.BuildField (\"model_two_menu\") [Page]
 
    Set filterObj = queryObj.BuildFilterOperator(AD_BOOL_OP_AND)
    filterObj.BuildFilter \"one_menu\", AD_COMP_OP_EQ, prj_name
    Set resultSetObj = sessionObj.BuildResultSet(queryObj)
 
    resultSetObj.Execute
 
    Do While resultSetObj.MoveNext = AD_SUCCESS
        choices.AddItem resultSetObj.GetColumnValue(1)
        SessionObj.OutputDebugString resultSetObj.GetColumnValue(1)
    Loop

文章來源于領測軟件測試網 http://www.kjueaiud.com/