منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : زر التالي داتاجريدفيور
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم  اساتذتي و اصدقاء المنتدى 
مشكلتي في زر التالي مع الداتاجريدفيور يظهر معي هذه الرسالة : System.ArgumentOutOfRangeException: 'Index was out of range. Must be non-negative and less than the size of the collection.

Parameter name: index'





كود :
 Private Sub Buttonnext_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Dim i As Integer = DataGridView1.CurrentRow.Index + 1
        If i < 0 Then i = 0
        DataGridView1.CurrentCell = Me.DataGridView1.Rows(i).Cells(0)
        DataGridView1.Rows(i).Selected = True

    End Sub

(31-01-24, 04:53 PM)annagui كتب : [ -> ]السلام عليكم  اساتذتي و اصدقاء المنتدى 
مشكلتي في زر التالي مع الداتاجريدفيور يظهر معي هذه الرسالة : System.ArgumentOutOfRangeException: 'Index was out of range. Must be non-negative and less than the size of the collection.

Parameter name: index'





كود :
 Private Sub Buttonnext_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Dim i As Integer = DataGridView1.CurrentRow.Index + 1
        If i < 0 Then i = 0
        DataGridView1.CurrentCell = Me.DataGridView1.Rows(i).Cells(0)
        DataGridView1.Rows(i).Selected = True

    End Sub
وجدت الحل و للاستفادة هذا الكود شغال 100%
كود :
Dim nextRow As Integer = dataGridView1.CurrentRow.Index + 1
If nextRow < dataGridView1.Rows.Count Then
   Me.dataGridView1.CurrentCell = dataGridView1.Rows(nextRow).Cells(dataGridView1.CurrentCell.ColumnIndex)
End If