如何限制在一個DataGridView

Question

用戶輸入幾個值，我需要拿出一個辦法來限制我的DGV進入一列比1或2任何其他用戶。我擁有它，因此用戶只能輸入一個號碼，但我需要進一步的限制才能符合FOREIGN KEY的限制條件。

任何想法？

當前驗證到位：

Private Sub dgvCategories_EditingControlShowing(ByVal sender As Object, _ 
    ByVal e As DataGridViewEditingControlShowingEventArgs) _ 
     Handles dgvCategories.EditingControlShowing 

     CType(Me.dgvCategories.Columns(0), DataGridViewTextBoxColumn).MaxInputLength = 50 
     CType(Me.dgvCategories.Columns(1), DataGridViewTextBoxColumn).MaxInputLength = 1 
End Sub 

Private Sub dgvCategories_DataError(ByVal sender As Object, _ 
    ByVal e As DataGridViewDataErrorEventArgs) _ 
     Handles dgvCategories.DataError 
     If StrComp(e.Exception.Message, "Input string was not in a correct format.") = 0 Then 
      MessageBox.Show("Please Enter either 1 (Expense) or 2 (Income) in the Transaction Type column.") 
      'This will change the number back to original 
      dgvCategories.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = " " 
     End If 
End Sub 

與解決方案圍繞播放：

Dim CurValue As Integer 
Private Sub dgvCategories_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles dgvCategories.CellEnter 
     CurValue = dgvCategories.Rows.Item(e.RowIndex).Cells(e.ColumnIndex).Value 
End Sub 
Private Sub dgvCategories_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles dgvCategories.CellEndEdit 
     Dim NewValue As Integer = dgvCategories.Rows.Item(e.RowIndex).Cells(e.ColumnIndex).Value 
     If NewValue < 1 Or NewValue > 2 Then 
      dgvCategories.Rows.Item(e.RowIndex).Cells(e.ColumnIndex).Value = CurValue 
     End If 
End Sub 

我得到這個錯誤：Conversion from string "Unassigned" to type 'Integer' is not valid.

這我假設是從該NULL項datagridview的「新行」。

如何修改這個解決方案的任何猜測？

編輯：感謝夜間，我改變了我的邏輯是：

Private Function CleanInputNumber(ByVal str As String) As String 
     Return System.Text.RegularExpressions.Regex.Replace(str, "[03456789]", "1") 
End Function 

Private Sub xDataGridView_CellValidating(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles DataGridView1.CellValidating 

     If DataGridView1.CurrentRow.Cells("ColumnType").IsInEditMode Then 

      Dim c As Control = DataGridView1.EditingControl 

      Select Case DataGridView1.Columns(e.ColumnIndex).Name 

       Case "ColumnType" 
        c.Text = CleanInputNumber(c.Text) 

      End Select 
     End If 
End Sub 

就像一個魅力！

Answer 1

許多不同的方法可以解決這個..我用正則表達式

與此

Private Function CleanInputNumber(ByVal str As String) As String 
    Return System.Text.RegularExpressions.Regex.Replace(str, "[a-zA-Z\b\s-.]", "") 
End Function 

這

Private Function CleanInputAlphabet(ByVal str As String) As String 
    Return System.Text.RegularExpressions.Regex.Replace(str, "[0-9\b\s-]", "") 
End Function 

你應該弄清楚

，這是事件中，我使用

Private Sub xDataGridView_CellValidating(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles xDataGridView.CellValidating 

    If xDataGridView.CurrentRow.Cells("xColumn").IsInEditMode Then 

     Dim c As Control = xDataGridView.EditingControl 

     Select Case xDataGridView.Columns(e.ColumnIndex).Name 

      Case "xColumn" 
       c.Text = CleanInputNumber(c.Text) 

       'Case "yColumn" 
       ' c.Text = CleanInputAlphabet(c.Text)     

     End Select  
    End If 
End Sub