如何使用 VB.Net 在 datagridview 中的特定列中设置单元格格式？

Question

我正在使用 DatagridView 工具。在这里，我正在对列进行手动输入并将其直接保存到数据库中。我有 5 列，其中 3 列是字母数字列，2 列是数字列。

我已使用 EditingControlShowing 事件中的处理程序为数值列设置条件。

    If grdLedgerDetails.CurrentCell.ColumnIndex = 4 Then
        AddHandler CType(e.Control, TextBox).KeyPress, AddressOf TextBox_keyPress
    ElseIf grdLedgerDetails.CurrentCell.ColumnIndex = 5 Then
        AddHandler CType(e.Control, TextBox).KeyPress, AddressOf TextBox_keyPress
    End If


Private Sub TextBox_keyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
    If Char.IsDigit(CChar(CStr(e.KeyChar))) = False Then e.Handled = True
End Sub

此条件正常工作。但问题是，这种情况适用于所有列。我只想让它在指定的列上工作。

请帮我解决这个问题。

提前致谢。

Answer 1

这很好用。

 Private Sub grdLedgerDetails_EditingControlShowing(sender As Object, e As                    System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles grdLedgerDetails.EditingControlShowing
    Select grdLedgerDetails.CurrentCell.ColumnIndex
        Case 2, 3
            RemoveHandler CType(e.Control, TextBox).KeyPress, AddressOf TextBox_keyPress
        Case 4, 5
            AddHandler CType(e.Control, TextBox).KeyPress, AddressOf TextBox_keyPress
    End Select
End Sub



Private Sub TextBox_keyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
    If Not Char.IsControl(e.KeyChar) And Not Char.IsDigit(e.KeyChar) And e.KeyChar <> "." Then
        e.Handled = True
    End If
       End Sub

Answer 2

这样试试

Private Sub dgv_EditingControlShowing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs)
    RemoveHandler CType(e.Control, TextBox).KeyPress, AddressOf TextBox_keyPress
    AddHandler CType(e.Control, TextBox).KeyPress, AddressOf TextBox_keyPress
End Sub

Private Sub TextBox_keyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
    Select Case grdLedgerDetails.CurrentCell.ColumnIndex
        Case 4,5
            If Char.IsDigit(CChar(CStr(e.KeyChar))) = False Then e.Handled = True
    End Select
End Sub