DataGirdView 单元格限制内容输入参考（按键时的判断）

限制DataGridView的输入

    '******************************************************************************************
    ''' <summary>AddHandler DGV key press</summary>
    Private Sub DGV_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgvMain.EditingControlShowing
        Try
            Dim CurEditrCell As DataGridViewTextBoxEditingControl

            If TypeOf e.Control Is DataGridViewTextBoxEditingControl Then
                CurEditrCell = CType(e.Control, DataGridViewTextBoxEditingControl)
                AddHandler CurEditrCell.KeyPress, AddressOf dgvKeyPress
            End If
        Catch ex As Exception
            
        End Try
    End Sub

    '******************************************************************************************
    ''' <summary>DGV Cell key press event</summary>
    Private Sub dgvKeyPress(ByVal sender As System.Object, ByVal e As KeyPressEventArgs)
        Try
            With dgvMain
                If .CurrentCell Is Nothing Then
                    Exit Sub
                End If

                If (Asc(e.KeyChar) <> Keys.Back) Then
                    Select Case .CurrentCell.ColumnIndex
                        Case 2, 3
                            If (sender.text.length < 10) Then
                                If (e.KeyChar <> Chr(47)) AndAlso ((e.KeyChar > Chr(57)) OrElse (e.KeyChar < Chr(48))) Then
                                    e.Handled = True
                                End If
                            Else
                                e.Handled = True
                            End If
                    End Select
                End If

            End With
        Catch ex As Exception
            
        End Try
    End Sub