The following exception occured in the dataGridView

<DebuggerStepThrough()> _
Public NotInheritable Class Dgv
    Inherits DataGridView
    Protected Overrides Sub OnDataError(ByVal displayErrorDialogIfNoHandler As Boolean, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs)
        Me.Rows(e.RowIndex).ErrorText = e.Exception.Message
        MyBase.OnDataError(False, e)
    End Sub
    Protected Overrides Sub OnCellValidating(ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs)
        CurrentRow.ErrorText = Nothing
        MyBase.OnCellValidating(e)
    End Sub
    Protected Overrides Function ProcessDialogKey(ByVal keyData As System.Windows.Forms.Keys) As Boolean
        'Dim e As New KeyEventArgs(keyData) - e.KeyColde - Sustituido por (keyData And Keys.KeyCode) ¿Unsafe?
        'Anula edición de la celda / Fila si es Ieditable
        If (keyData And Keys.KeyCode) = Keys.Escape AndAlso _
            (IsCurrentCellDirty OrElse IsCurrentRowDirty OrElse EditingControl IsNot Nothing) Then _
                Beep() : CancelEdit() : Return True
        Return MyBase.ProcessDialogKey(keyData)
    End Function
End Class
 
 
<DebuggerStepThrough()> _
Public Class DgvTextBoxCol
    Inherits DataGridViewTextBoxColumn
    Public AutoCompleteStringCollection As AutoCompleteStringCollection
    Public CharacterCasing As CharacterCasing
    Sub New()
        MyBase.New()
        CellTemplate = New Cell
    End Sub
 
    Protected Class Cell
        Inherits DataGridViewTextBoxCell
        Public Overrides Sub InitializeEditingControl(ByVal rowIndex As Integer, _
            ByVal initialFormattedValue As Object, _
            ByVal dataGridViewCellStyle As DataGridViewCellStyle)
 
            ' Set the value of the editing control to the current cell value.
            MyBase.InitializeEditingControl(rowIndex, initialFormattedValue, dataGridViewCellStyle)
            Dim col = DirectCast(OwningColumn, DgvTextBoxCol), Tb = DirectCast(DataGridView.EditingControl, TextBox)
            Tb.CharacterCasing = col.CharacterCasing
            If col.AutoCompleteStringCollection IsNot Nothing Then Autocomplete(Tb, col.AutoCompleteStringCollection)
        End Sub
        Public Overrides Sub DetachEditingControl()
            MyBase.DetachEditingControl()
            DirectCast(DataGridView.EditingControl, TextBox).PasswordChar = Nothing
            Dim Tb = DirectCast(DataGridView.EditingControl, TextBox)
            If Tb.AutoCompleteCustomSource IsNot Nothing Then Autocomplete(Tb, Nothing)
            Tb.AutoCompleteCustomSource = Nothing
        End Sub
    End Class
End Class

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53: