[عيد مبارك]

كود :

Private Sub DGVewItems_KeyPress(sender As Object, e As KeyPressEventArgs) Handles DGVewItems.KeyPress
    If Asc(e.KeyChar) <> 8 Then
        If Asc(e.KeyChar) < 46 Or Asc(e.KeyChar) > 57 Then
            e.Handled = True
        End If
    End If
    If sender.Text.Contains(".") Then
        If e.KeyChar = "." Then
            e.Handled = True
        End If
    End If
End Sub
Private Sub DGVewItems_GotFocus(sender As Object, e As EventArgs) Handles DGVewItems.GotFocus
    RemoveHandler CType(sender, DataGridView).EditingControlShowing, AddressOf DGVewItems_EditingControlShowing
    AddHandler CType(sender, DataGridView).EditingControlShowing, AddressOf DGVewItems_EditingControlShowing
End Sub
Private Sub DGVewItems_EditingControlShowing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs)
    If sender.CurrentCell.ColumnIndex = 13 Then ' <<<< ColumnIndex
        Dim TB = CType(e.Control, TextBox)
        RemoveHandler TB.KeyPress, AddressOf DGVewItems_KeyPress
        AddHandler TB.KeyPress, AddressOf DGVewItems_KeyPress
    End If
End Sub