VB.NET中如何限制DataGridView单元格仅输入数字和小数点？

针对你需求的DataGridView第6列（注意：DataGridView列索引从0开始计数，因此第6列对应索引5），可以通过以下两种实用方式实现输入限制：

方法一：实时拦截非法输入（EditingControlShowing + KeyPress） #

这种方式在用户输入时直接拦截非法字符，即时反馈：

Private Sub DataGridView1_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
    ' 仅对目标列生效
    If DataGridView1.CurrentCell.ColumnIndex = 5 Then
        ' 先移除旧的事件绑定，避免重复触发
        RemoveHandler DirectCast(e.Control, TextBox).KeyPress, AddressOf DecimalInput_KeyPress
        ' 绑定输入拦截事件
        AddHandler DirectCast(e.Control, TextBox).KeyPress, AddressOf DecimalInput_KeyPress
    End If
End Sub

Private Sub DecimalInput_KeyPress(sender As Object, e As KeyPressEventArgs)
    Dim inputBox As TextBox = DirectCast(sender, TextBox)
    ' 允许数字、小数点、退格键
    If Not (Char.IsDigit(e.KeyChar) OrElse e.KeyChar = "."c OrElse e.KeyChar = ControlChars.Back) Then
        e.Handled = True
    End If
    ' 限制只能输入一个小数点
    If e.KeyChar = "."c AndAlso inputBox.Text.Contains(".") Then
        e.Handled = True
    End If
    ' 可选：禁止小数点作为第一个字符（若业务需要）
    ' If e.KeyChar = "."c AndAlso inputBox.Text.Length = 0 Then
    '     e.Handled = True
    ' End If
End Sub

方法二：失去焦点时验证输入（CellValidating） #

这种方式可以覆盖粘贴非法内容的场景，验证更严谨：

Private Sub DataGridView1_CellValidating(sender As Object, e As DataGridViewCellValidatingEventArgs) Handles DataGridView1.CellValidating
    ' 仅验证目标列
    If e.ColumnIndex = 5 Then
        ' 允许空值（不需要则删除此判断）
        If String.IsNullOrEmpty(e.FormattedValue.ToString()) Then
            Return
        End If
        ' 验证输入是否为有效的十进制数字
        If Not Decimal.TryParse(e.FormattedValue.ToString(), Nothing) Then
            MessageBox.Show("请输入有效的数字或小数", "输入错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ' 取消编辑，保留焦点在当前单元格
            e.Cancel = True
        End If
    End If
End Sub

注意事项 #

• 确认列索引：若你是通过可视化设计器添加的列，需检查目标列的ColumnIndex属性是否为5（默认从0开始计数）。
• 组合使用更稳妥：同时启用两种方法，既实时拦截非法输入，又在失去焦点时做最终验证，兼顾体验与合法性。

内容的提问来源于stack exchange，提问作者RUSHI HARDWARE