DataGridView.Column (ColumnName as String) выдает ошибку «Ссылка на объект не установлена ​​для экземпляра объекта»

Question

Это то, что меня давно беспокоит, так как это легко исправить, но не желательно.

У меня есть DataGridView, который имеет 5 столбцов. Первый называется ID.

В vb.net следующая строка выдает ошибку «Ссылка на объект не установлена ​​для экземпляра объекта»:

dgvJobs.Columns("ID").Visible = False ' ERROR
dgvJobs.Columns(0).Visible = False ' OK

Очевидно, что использование имени намного лучше, чем жестко закодированное значение для ссылки на столбец, но интересно, могу ли я что-нибудь сделать, чтобы это работало правильно?

Источником данных сетки данных является элемент управления BindingSource, а источником данных является набор данных.

РЕДАКТИРОВАТЬ: На основе ответа я создал следующую функцию, которая выполняет именно то, что мне нужно:

Private Function GetColName(ByVal name As String, ByRef dgv As DataGridView) As Integer
    Dim retVal As Integer

    For Each col As DataGridViewColumn In dgv.Columns
        If col.HeaderText = name Then
            retVal = col.Index
            Exit For
        End If
    Next

    Return retVal

End Function

Useage:

dgvJobs.Columns(GetColName("ID", dgvJobs)).Visible = False

Answer 1

Два совета:

1- По умолчанию дизайнер Winforms создает объект в вашем классе форм для каждого столбца, который существует в DataGridView. Так, если у вас есть столбец с именем MyIdColumn, например, вы должны иметь возможность получить доступ к столбцу в коде формы следующим образом:

Me.MyIdColumn.Visible = False

Если вы хотите получить доступ к элементу DataGridView, вы можете сделать что-то вроде этого:

Dim value = dgv.Item(MyIdColumn.Index, rowIndex).Value

Используя этот трюк, если имя столбца изменяется, проблем не возникает, поскольку вы ссылаетесь непосредственно на столбец, а не на строку, представляющую имя столбца, которое может измениться.

2 - Ваш метод GetColName мог бы быть лучше; Я бы преобразовал его в метод расширения:

<System.Runtime.CompilerServices.Extension()> _
Private Function GetColByHeaderText(ByVal dgv As DataGridView, ByVal name As String) As DataGridViewColumn

    For Each col As DataGridViewColumn In dgv.Columns
        If col.HeaderText = name Then
            Return col
        End If
    Next

    Return Nothing

End Function

Использование:

dgv.GetColByHeaderText("ID").Visible = False

Намного приятнее ИМО!

Answer 2

Возможно, колонка не называется тем, что вы думаете?

Вы проверили свойство Columns (0) .Name для проверки?

BindingSource

мог бы назвать его «tablename_ID» или что-то в этом роде.

Answer 3

Public Class Form2 Личный список как список (от лица) Private Sub Form2_Load (отправитель ByVal как System.Object, ByVal e как System.EventArgs) обрабатывает MyBase.Load CreateDGV () PopulatingDGV ()

End Sub

Private Sub CreateDGV()
    dataGridView1.AllowUserToAddRows = False
    dataGridView1.RowHeadersVisible = False

    dataGridView1.Columns.Add("col1", "Column 1")
    Dim column2 As DataGridViewComboBoxColumn = CreateComboBoxColumn1()
    Dim column3 As DataGridViewComboBoxColumn = CreateComboBoxColumn2()
    dataGridView1.Columns.Add(column2)
    dataGridView1.Columns.Add(column3)
    'adding an event:
    'DataGridView1.EditingControlShowing += New DataGridViewEditingControlShowingEventHandler(AddressOf dataGridView1_EditingControlShowing)
    'DataGridView1.DataError += New DataGridViewDataErrorEventHandler(AddressOf dataGridView1_DataError)
End Sub

Private Function CreateComboBoxColumn1() As DataGridViewComboBoxColumn
    Dim column As New DataGridViewComboBoxColumn()
    If True Then
        column.Name = "column2"
        column.HeaderText = "Column 2"
        column.DropDownWidth = 120
        column.Width = 120
        column.MaxDropDownItems = 3
        column.Items.AddRange(New String() {"First name", "Last name", "E-mail"})
        column.FlatStyle = FlatStyle.Flat
    End If
    Return column
End Function

Private Function CreateComboBoxColumn2() As DataGridViewComboBoxColumn
    Dim column As New DataGridViewComboBoxColumn()
    If True Then
        column.Name = "column3"
        column.HeaderText = "Column 3"
        column.DropDownWidth = 150
        column.Width = 150
        column.MaxDropDownItems = 3
        column.FlatStyle = FlatStyle.Flat
    End If
    Return column
End Function
Private Sub PopulatingDGV()
    '1.ST COLUMN: some test data to populate dgv
    Dim companies As String() = {"Indian Info", "Cybex", "Admin"}
    For i As Integer = 0 To companies.Length - 1
        dataGridView1.Rows.Add(companies(i))
    Next

    '2.ND COLUMN: creating a generic list (of your data from the file):
    'I will not populate it from the file, only invent some example data:
    Dim persons As Person() = New Person() {New Person("Monica", "Trotsky", "monica@test.com"), New Person("Budh", "sagar", "budh@cybex.in")}
    list = New List(Of Person)()
    For Each p As Person In persons
        list.Add(p)
    Next
End Sub


Private Sub DataGridView1_EditingControlShowing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
    Try
        If DataGridView1.CurrentCell.ColumnIndex = 1 Then
            Dim combo As ComboBox = TryCast(e.Control, ComboBox)
            If combo IsNot Nothing Then
                RemoveHandler combo.SelectedIndexChanged, New EventHandler(AddressOf comboBox_SelectedIndexChanged)
                AddHandler combo.SelectedIndexChanged, New EventHandler(AddressOf comboBox_SelectedIndexChanged)
            End If
        End If
    Catch ex As Exception
        MessageBox.Show("Error:" & vbLf & vbLf & ex.Message)
    End Try
End Sub
Private Sub comboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
    Try
        Dim cb As ComboBox = DirectCast(sender, ComboBox)
        Dim selection As String = cb.Text
        If selection <> [String].Empty Then
            For Each dgvColumn As DataGridViewColumn In dataGridView1.Columns
                If dgvColumn.Name = "column3" Then
                    Dim row As Integer = dataGridView1.CurrentCell.RowIndex
                    Dim cell As DataGridViewComboBoxCell = DirectCast(dataGridView1(2, row), DataGridViewComboBoxCell)
                    'cell.Items.Clear();
                    Select Case selection
                        Case "First name"
                            If True Then
                                cell.DataSource = list
                                cell.DisplayMember = "firstName"
                                cell.ValueMember = cell.DisplayMember
                                Exit Select
                            End If
                        Case "Last name"
                            If True Then
                                cell.DataSource = list
                                cell.DisplayMember = "lastName"
                                cell.ValueMember = cell.DisplayMember
                                Exit Select
                            End If
                        Case "E-mail"
                            If True Then
                                cell.DataSource = list
                                cell.DisplayMember = "eMail"
                                cell.ValueMember = cell.DisplayMember
                                Exit Select
                            End If
                    End Select
                End If
            Next
        End If
    Catch ex As Exception
        MessageBox.Show("Error:" & vbLf & vbLf & ex.Message)
    End Try
End Sub

Friend Class Person
    Public Property firstName() As String
        Get
            Return m_firstName
        End Get
        Set(ByVal value As String)
            m_firstName = Value
        End Set
    End Property
    Private m_firstName As String
    Public Property lastName() As String
        Get
            Return m_lastName
        End Get
        Set(ByVal value As String)
            m_lastName = Value
        End Set
    End Property
    Private m_lastName As String
    Public Property eMail() As String
        Get
            Return m_eMail
        End Get
        Set(ByVal value As String)
            m_eMail = Value
        End Set
    End Property
    Private m_eMail As String

    Public Sub New(ByVal _fn As String, ByVal _ln As String, ByVal _em As String)
        firstName = _fn
        lastName = _ln
        eMail = _em
    End Sub
End Class

Private Sub DataGridView1_DataError(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles DataGridView1.DataError
    If e.Exception IsNot Nothing AndAlso e.Context = DataGridViewDataErrorContexts.Commit Then
        MessageBox.Show("CustomerID value must be unique.")
    End If
End Sub

Конечный класс