Private Sub DGVFieldsMap_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVFieldsMap.CellEnter If e.ColumnIndex = 1 Then If cboClmCell Is Nothing Then Dim dgv As DataGridView = CType(sender, DataGridView) cboClmCell = New DataGridViewComboBoxCell cboClmCell.Items.Add("A") cboClmCell.Items.Add("B") cboClmCell.Items.Add("C") cboClmCell.Items.Add("D") cboClmCell.Items.Add("E") cboClmCell.Items.Add("F") dgv.Focus() dgv(e.ColumnIndex, e.RowIndex) = cboClmCell '[Error Here] isCombo = True End If End If End Sub Private Sub DGVFieldsMap_CellValidating(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles DGVFieldsMap.CellValidating If e.ColumnIndex = 1 Then Dim dgv As DataGridView = CType(sender, DataGridView) If isCombo Then isCombo = False cboClmCell = Nothing dgv(e.ColumnIndex, e.RowIndex) = New DataGridViewTextBoxCell() End If End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)