topic Re: Populating ListView From shapefile in ArcObjects SDK Questions

Populating ListView From shapefile

HushamHassan — Wed, 01 May 2013 07:01:04 GMT

Hi,
I have a listview in my form I need to populate with the selected feature record, my code fill all the field in one columns, I need to show only 5 columns in my listview. here is my code so far.

Dim nCols As Integer              nCols = pFeature.Fields.FieldCount              For i = 2 To nCols - 1                  Me.Listsheet.Items.Add(pFeature.Fields.Field(i).Name)                 Me.Listsheet.Items.Add(pFeature.Value(i))               Next

Regards

Re: Populating ListView From shapefile

BarbaraSchneider1 — Thu, 02 May 2013 07:29:13 GMT

Hi,

first you have do define the header for your listView:

For i = 0 To pFeature.Fields.FieldCount - 1     strFieldname = pFeature.Fields.Field(i).Name     pColHeader = New ColumnHeader()     pColHeader.Text = strFieldname     Me.Listsheet.Columns.Add(pColHeader) Next

Then you can add the items and the subitems. The error you made is that you only filled in the items (these only fill the first column). To fill in the subsequent columns, you need to add subitems:

Dim pListItem As ListViewItem  pListItem = Me.Listsheet.Items.Add(pFeature.Value(0)) ' fill in value in first column For i = 1 To pFeature.Fields.FieldCount - 1     pListItem.SubItems.Add(pFeature.Value(i))         ' fill in values in all remaining columns     Next

I hope this helps.

Kind regards,
Barbara

Re: Populating ListView From shapefile

HushamHassan — Sat, 11 Dec 2021 12:32:18 GMT

hi Barbara
Thank you for your help Your code worked fine after little modification.
Here is the working Code for me.

Dim pColHeader As ColumnHeader
            Dim strFieldname As String
            For j = 0 To pFeature.Fields.FieldCount - 1
                strFieldname = pFeature.Fields.Field(j).Name
                pColHeader = New ColumnHeader()
                pColHeader.Text = strFieldname
                Me.Listsheet.Columns.Add(pColHeader)
            Next

            Dim pListItem As New ListViewItem

            pListItem = Me.Listsheet.Items.Add(pFeature.Value(0)) ' fill in value in first column
            For i = 1 To (pFeature.Fields.FieldCount - 1)
                ' pListItem.SubItems.Add(CStr(pFeature.Value(i)))       ' fill in values in all remaining columns    
                pListItem.Text = Convert.ToString(pFeature.Value(i))
                pListItem.SubItems.Add(Convert.ToString(pFeature.Value(i)))
            Next

Regards