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
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
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
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
Aangemelde leden kunnen berichten plaatsen, updates volgen en meer. Nieuw hier? Registreer een gratis account.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.