Public EditCell As DataGridViewTextBoxEditingControl
Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
EditCell = CType(e.Control, DataGridViewTextBoxEditingControl)
EditCell.SelectAll()
'输入屏蔽,委托到自定义的事件
AddHandler EditCell.KeyPress, AddressOf Cells_KeyPress
End Sub
Private Sub Cells_KeyPress(ByVal sender As System.Object, ByVal e As KeyPressEventArgs)
If DataGridView1.CurrentCellAddress.X = 3 Then
If e.KeyChar <> Chr(46) And e.KeyChar <> Chr(8) And e.KeyChar <> Chr(13) And (e.KeyChar < Chr(48) Or e.KeyChar > Chr(57)) Then
e.Handled = True
End If
End If
End Sub