How to handle WinListView object with multi line items?

[jim7020]

I am writing a script for an application written in C++. I have a WinListView object with 18 columns that I need to be able to select an item by double clicking. Object Spy displays <muli-line value> for all items and selection. I recorded the action to see how QTP would recognize it and this is what I got:

Code:

Window("Workforce Management").Window("R&D").WinListView("Jobs").Select "H: 303-555-1212" + vbLf + "B: 303-555-1212"

Window("Workforce Management").Window("R&D").WinListView("Jobs").SetItemState "H: 303-555-1212

Window("(10000103399710680001)]").WinButton("OK").Click
Window("Workforce Management").Activate
B: 303-555-1212", micDblClick

It wont play back due the unterminated string for the SetItemState method. If you look at the last line above, the micDblClick should be on the same line as the SetItemState. When I try to manually script the line it doesnt recognize it:

Code:

Window("Workforce Management").Window("R&D").WinListView("Jobs").SetItemState "H: 303-555-1212" + vbLf + "B: 303-555-1212", micDblClick

[jim7020]

I wrote a loop to to put the values in "all items" in the WinListView object above into an array and then loop through and compare to a parameter in the datatable. The loop works correctly for the value in the first row but then next time it loops through i get: Subscript out of range: 'p'

Can anyone help me with this? Here is my code-

Code:

Get number of Rows (for Loop) and  Info
TECH_ROWS = window("Workforce Management").Window("R&D").WinListView("Techs").GetROProperty ("items count")
TECH_ITEMS = window("Workforce Management").Window("R&D").WinListView("Techs").GetROProperty ("all items")

'Split  Tech Info in to an Array
TECH_SPLIT = split(TECH_ITEMS, "All ")
TECH_INFO = split(TECH_SPLIT(0), "None Selected")

'Loop a MSGBOX for every Array value
For p = 0 to TECH_ROWS -1
        msgbox "Tech Found on Row " & p +1 & " is: " & Trim(TECH_INFO(p))
        
        'Job matching from Datasheet and values in Array
        If TechID = Trim(TECH_INFO(p)) Then
                msgbox "Tech = " & TechID & vbCr & "Row Found on Screen = " & Trim(TECH_INFO(p))
        End If
Next