General information
Category:
ActiveX controls in VFP
Charles,
Try this:
With Thisform.mylistview
For i = 1 To 5
.ColumnHeaders.Add(, , "Column" + Str(i))
EndFor
For ii = 1 To 5
oListItem = .ListItems.Add(, , "Item" + Str(ii))
For iii = 1 To 4
oListItem.SubItems(iii) = "Subitem" + Str(iii)
EndFor
EndFor
EndWith
>Hi All!
>I am experiencing problems regarding the listview control. I am trying to >build an "Explorer" type of window using a treeview and a listview. THe >problem is that i cannot seem to add the correct sub-items in the listview. I >get a different result. When I tried in VB, it works fine, but in VFP, >different result. My code reads:
>With Thisform.mylistview
>For i = 1 To 5
>.ColumnHeaders.Add(, , "Column" + Str(i))
>EndFor
>For ii = 1 To 5
>.ListItems.Add(, , "Item" + Str(ii))
>For iii = 1 To 4
>** next line of code causes a syntax error
>.ListItems.Item(ii).ListSubItems.Add(, , "Subitem" + Str(iii))
>EndFor
>EndFor
>EndWith
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only