VB.Net DataGridView指定单元格数值输入限制及空值/0自动设为1的实现问询

我帮你完善这段代码，刚好能满足你要的两个核心需求：限制特定单元格仅允许输入数字，同时把空值或0自动替换为1。下面是优化后的实现方案：

步骤1：优化编辑控件的事件绑定逻辑 #

原代码里的事件绑定可能会重复添加处理器，导致多次触发提示。我们可以只针对目标列（索引5）绑定输入限制事件，这样更高效：

Private Sub dgvPrint_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles dgvPrint.EditingControlShowing
    ' 先移除旧的事件处理器，避免重复绑定
    Dim txtEdit As TextBox = TryCast(e.Control, TextBox)
    If txtEdit IsNot Nothing Then
        RemoveHandler txtEdit.KeyPress, AddressOf CopiesText_KeyPress
        ' 仅对第5列（索引从0开始计数）绑定输入限制事件
        If dgvPrint.CurrentCell.ColumnIndex = 5 Then
            AddHandler txtEdit.KeyPress, AddressOf CopiesText_KeyPress
        End If
    End If
End Sub

步骤2：严格限制数字输入 #

简化KeyPress事件处理，专注做输入验证，去掉多余的列判断：

Private Sub CopiesText_KeyPress(sender As Object, e As KeyPressEventArgs)
    ' 只允许输入数字和退格键
    If Not (Char.IsDigit(e.KeyChar) OrElse e.KeyChar = ChrW(Keys.Back)) Then
        e.Handled = True
        MessageBox.Show("Invalid input." & vbCrLf & "Please enter numeric value.", "Invalid", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    End If
End Sub

步骤3：添加空值/0自动修正逻辑 #

光靠输入限制还不够，用户可能通过粘贴、快捷键等方式输入0或留空，所以我们在单元格编辑完成后做统一校验：

Private Sub dgvPrint_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPrint.CellEndEdit
    ' 仅处理目标列
    If e.ColumnIndex = 5 Then
        Dim cellValue = dgvPrint.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
        ' 判断值为空、0或无法转换为有效数字的情况
        If cellValue Is Nothing OrElse String.IsNullOrWhiteSpace(cellValue.ToString()) OrElse CDec(cellValue) <= 0 Then
            dgvPrint.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = 1
        End If
    End If
End Sub

额外说明 #

• 用TryCast确保编辑控件是TextBox，避免类型转换错误
• 在CellEndEdit事件里处理值修正，能覆盖所有输入场景（比如粘贴、右键菜单输入等）
• 使用CDec转换数值比IsNumeric更严谨，能过滤掉非标准的数字格式

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