解决方案索引超出范围。必须为非负数且小于 vb.net 中的集合大小

Question

我有一个错误问题“索引超出范围。必须是非负的并且小于集合的大小”当我输入一个值为“1”的值时出现错误并且该值不在数据网格视图的“代码”列中。有没有最好的推荐？

Public x As Integer
Dim source1 As New BindingSource() 

Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles TextBox2.KeyDown
    If e.KeyCode = Keys.Back Then
        source1.Filter = ""
        TextBox1.Clear()
    Else
        If e.KeyCode = Keys.Enter Then
source1.Filter = "CODE = '" & Replace(TextBox2.Text, "'", "") & "'"
            x = DataGridView1.Rows.IndexOf(DataGridView1.CurrentRow)
            txtCODE.Text = DataGridView1.Rows(x).Cells(0).Value.ToString()
            Dim dte = DataGridView1.Rows(x).Cells(1).Value.ToString()

            If dte <> Nothing Then
                txtDTE.Text = CDate(dte)
            Else
                'CLEAR txtDTE if dt <> nothing
                txtDTE.Clear()
            End If

            txtQTY.Text = DataGridView1.Rows(x).Cells(2).Value.ToString()
            txtPRICE.Text = DataGridView1.Rows(x).Cells(3).Value.ToString()
            txtPRICE.Text = String.Format(System.Globalization.CultureInfo.GetCultureInfo("en-US"), "{0:N0}", Double.Parse(txtPRICE.Text))
 
            If source1.Count <= 0 Then
                source1.Filter = ""
                TextBox2.Clear()
                MsgBox("No Result Found!", MsgBoxStyle.Exclamation)
            End If
        End If
    End If
End Sub

Answer 1

我通过添加检查来修复它以确保当前行的索引有效。

Public x As Integer
Dim source1 As New BindingSource() 

Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles TextBox2.KeyDown
    If e.KeyCode = Keys.Back Then
        source1.Filter = ""
        TextBox1.Clear()
    Else
        If e.KeyCode = Keys.Enter Then
source1.Filter = "CODE = '" & Replace(TextBox2.Text, "'", "") & "'"
            x = DataGridView1.Rows.IndexOf(DataGridView1.CurrentRow)
           ***If x >= 0 And x <= DataGridView1.Rows.Count - 1 Then*** 'ADD THIS CODE SOLUTION FOR ME
                txtCODE.Text = DataGridView1.Rows(x).Cells(0).Value.ToString()
                Dim dte = DataGridView1.Rows(x).Cells(1).Value.ToString()

                If dte <> Nothing Then
                    txtDTE.Text = CDate(dte)
                Else
                    'CLEAR txtDTE if dt <> nothing
                    txtDTE.Clear()
                End If

                txtQTY.Text = DataGridView1.Rows(x).Cells(2).Value.ToString()
                txtPRICE.Text = DataGridView1.Rows(x).Cells(3).Value.ToString()
                txtPRICE.Text = String.Format(System.Globalization.CultureInfo.GetCultureInfo("en-US"), "{0:N0}", Double.Parse(txtPRICE.Text))
            End If
        End If
    End If

    If source1.Count <= 0 Then
        source1.Filter = ""
        TextBox2.Clear()
        MsgBox("No Result Found!", MsgBoxStyle.Exclamation)
    End If
End Sub

解决方案索引超出范围。必须为非负数且小于 vb.net 中的集合大小

solution Index was out of range. Must be non-negative and less than the size of the collection in vb.net

vb.net

events

textbox

datagridview