ClearQuest的動態關聯
發布: 2009-2-23 10:10 | 作者: 不詳 | 來源: 領測軟件測試網采編 | 查看: 1次 | 進入軟件測試論壇討論
Set queryObj = sessionObj.BuildQuery("two_menu")
queryObj.BuildField ("model_two_menu")
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)