• Home
 · 
• String Manipulation
 · 
• Add Item to listview

Add Item to listview

takes a string like "Johnny*(722)555-5555*35" and splits it into columns on a listview control(designed for Report view)

Inputs
lst = Listview control zString = data string with *'s between the words

Rate Add Item to listview

• 1
• 2
• 3
• 4
• 5

(11(11 Vote))

Sub ReportAddTo(lst As ListView, zString As String)
Dim bleh As ListItem
'zString = "One*Two*Three*Four*Five"
On Error Resume Next

Set bleh = lst.ListItems.Add(, , Split(zString, "*")(0))
    
For i = 1 To 200
  bleh.SubItems(i) = Split(zString, "*")(i)
Next i

End Sub