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
Solved! Go to Solution.
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
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