Populating a ListView.

[rickyoswaldiow]

Good morning all. Today I am working on populating a ListView control (not to be confused with ListBox).
The original code is setup thus:

dim lstItem as ListItem

lvwListView.ListItems.Clear

If Not(rsRecordSet.EOF and rsRecordSet.BOF) Then
   rsRecordSet.MoveFirst
   Do Until rsRecordSet.EOF
      Set lstItem = lvwListView.ListItems.Add(, rsRecordSet("Record1"), Trim(rsRecordSet("Record2"))
      mItem.SubItems(1) = Trim(rsRecordSet("Record3"))
      mItem.SubItems(2) = Format(Trim(rsRecordSet("RecordDate")), gblDATEFORMAT)
      mItem.SubItems(3) = Trim(rsRecordSet("Record4"))
      rsRecordSet.MoveNext
   Loop
End If

This works up to the .SubItems line is used, where it drops out with "Invalid Property Value".

 

[rickyoswaldiow]

*EDIT* mItem == lstItem

 

[vbSun]

Is there a NULL in the database row?

Try (, rsRecordSet("Record1") & "" where you assign to ListView

 

[rickyoswaldiow]

Nope, no nulls at all - the database has default values at least but in this case, they are all populated. I think the problem is the person who originally wrote this code was a VBA developer and they have declared the ListItem incorrectly. I am still studying some documents on google but my brain has already checked out for the weekend :|

 

[rickyoswaldiow]

Seems that it's all declared properly, the records are all populated... I'm totally stumped.

 

[HughLerwill]

You must add the subitems before you can assign values to them, or do creation and assignment in one go something like;

lv.ListItems(lv.ListItems.count).ListSubItems.Add , ,SomeValue

 

[rickyoswaldiow]

You must add the subitems before you can assign values to them

Interesting, in all the examples I have been looking at on google, they are all declared and assigned in exactly the same way...

 

[rickyoswaldiow]

You must add the subitems before you can assign values to them

How would one do this?

 

[strongm]

>they are all declared and assigned in exactly the same way...

The examples may have assumed that the listview has had some columns added to it at design time (which has the effect of initialising the SubItems for you)

 

[rickyoswaldiow]

I can't see a columns property in the design time editor... Could you be a little more specific?

 

[HughLerwill]

>not to be confused with ListBox

Or a Grid type control which has predefined numbers of columns.

In the ListView you have to create the columns (subitems) for each row(ListItem)

 

[strongm]

The help key is your friend ...

 

[rickyoswaldiow]

In the ListView you have to create the columns (subitems) for each row(ListItem)

Does this have to be coded because I cannot see columns, subitems, rows or listitem properties for this control. The only property I have changed is the View to "3 - lvwReport" but I doubt this would have any bearing on the problem. The control comes from "Microsoft Windows Common Controls 6.0 (SP3)

 

[HughLerwill]

Private Sub Command1_Click()

With lv
.View = lvwReport
For i = 1 To 4
.ColumnHeaders.Add , , "Col " & i
Next
For j = 1 To 10
r = r + 1
.ListItems.Add , , "Row " & 1
With .ListItems(.ListItems.Count)
For i = 2 To 4
.ListSubItems.Add , , "Col " & i
Next
End With
Next
End With

End Sub

 

[rickyoswaldiow]

Okay, my boss heard me umming and ahhing and has showed me where the properties are. You have to click into the "Custom" property and navigate to the Column Headers tab. Thankyou for all the help!