Monday, January 3, 2011

Get List of Values using OTA API HP QC

Dim cust As Customization
Dim custlists As CustomizationLists
Dim custlist As CustomizationList
Dim listrootnode As CustomizationListNode

Set cust = tdc.Customization
Set custlists = cust.Lists
Set custlist = custlists.List("Bug Status")
Set listrootnode = custlist.RootNode
MsgBox "Count list items: " & listrootnode.ChildrenCount & Chr(13) _
& "Root name: " & listrootnode.Name
Set listchildren = listrootnode.Children
MsgBox "Count children: " & listchildren.Count
Text = ""
For i = 1 To listchildren.Count
Text = Text & Chr(13) & listchildren.Item(i).Name
Next
MsgBox Text

6 comments:

  1. Small bits of content which are explained in details,helps me understand the topic, thank you!

    GetSplitTotalsByExchange

    ReplyDelete
  2. You were asking to add comments to the functions which are being used?
    If not please explain what exactly you were looking for.

    ReplyDelete
  3. Thank you. I am trying to get list of values for "Detected in Cycle" field like you did for Defect status. Can you please help??

    And also could you please tell where to get customlist names?...Thank you somuch in advance.

    ReplyDelete
  4. Jack i am also trying to get a list of "Detected in Release" value. Did you manage to find out how to get the list of values ? If so please share

    ReplyDelete
  5. Sorry, I want get to List Projects, Prent root list, i don't know how to Do it. Can I help me, please?

    ReplyDelete
  6. Thank You and that i have a super present: What Does A Full House Renovation Cost remodel old house

    ReplyDelete