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
Angemeldete Mitglieder können Beiträge verfassen, Updates folgen und mehr. Neu hier? Registriere ein kostenloses Konto.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.