我正在使用 Quality Center 10,并且对从用户字段中检索数据有疑问:
我有一个定义为 TS_USER_15 的测试用户字段作为“查找列表”类型的“客户”字段,该字段具有多个值。如何从作为测试运行的 VB 脚本中读取这些值列表?谢谢。
我正在使用 Quality Center 10,并且对从用户字段中检索数据有疑问:
我有一个定义为 TS_USER_15 的测试用户字段作为“查找列表”类型的“客户”字段,该字段具有多个值。如何从作为测试运行的 VB 脚本中读取这些值列表?谢谢。
自己找到了答案:
'Consider m_td_connection = TD_connection
Dim iGlobalListCounter, iListCounter, ValuesStr, ProductListName
ProductListName = "Status"
For iGlobalListCounter = 1 to m_td_connection.Customization.Lists.Count
If m_td_connection.Customization.Lists.ListByCount(iGlobalListCounter).RootNode.Name = ProductListName Then
ValuesStr = m_td_connection.Customization.Lists.ListByCount(iGlobalListCounter).RootNode.Children.Item(1).Name ‘starting ValuesArr with the first value
For iListCounter = 2 to m_td_connection.Customization.Lists.ListByCount(iGlobalListCounter).RootNode.ChildrenCount
ValuesStr = ValuesStr & "," & m_td_connection.Customization.Lists.ListByCount(iGlobalListCounter).RootNode.Children.Item(iListCounter).Name
Next
End If
Next
Msgbox ProductListName & " list values = " & vbCrlf & ValuesStr