Code:
Private Sub dgv_WorkHistory_EditingControlShowing(sender As System.Object, e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgv_WorkHistory.EditingControlShowing
RemoveHandler e.Control.KeyDown, AddressOf cell_KeyDown
AddHandler e.Control.KeyDown, AddressOf cell_KeyDown
End Sub
Private Sub cell_KeyDown(sender As Object, e As KeyEventArgs)
If dgv_WorkHistory.CurrentCell.ColumnIndex = 3 Then
If Not IsNumeric(e.KeyCode.ToString()) Then
e.Handled = True 'if non numeric don't display
'now replace with another key to display
Else
e.Handled = False
End If
End If
End Sub