[طالب برمجة]

كما ذكرت: الموضوع فقط على البيانات المعروضه داخل الاداة ولا علاقة له بالجدول

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

PHP كود :

'الأول
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    DGVMoveSelection(Me.DataGridView1, 0)
End Sub
'السابق
Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
    DGVMoveSelection(Me.DataGridView1, Me.DataGridView1.CurrentRow.Index - 1)
End Sub
'التالي
Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
    DGVMoveSelection(Me.DataGridView1, Me.DataGridView1.CurrentRow.Index + 1)
End Sub
'الأخير
Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
    DGVMoveSelection(Me.DataGridView1, Me.DataGridView1.Rows.Count - 1)
End Sub
Sub DGVMoveSelection(ByVal dgv As DataGridView, ByVal rowindex As Integer)
    If rowindex < 0 Then rowindex = 0
    If rowindex > (dgv.Rows.Count - 1) Then rowindex = (dgv.Rows.Count - 1)
    dgv.ClearSelection()
    dgv.CurrentCell = dgv.Rows(rowindex).Cells(0)
    dgv.Rows(rowindex).Selected = True
End Sub 


تبديل مواقع الاسطر

PHP كود :

Private Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click
    'تبديل بين السطر الثاني والسطر السادس
    DGVRowsSwap(Me.DataGridView1, 1, 5)
End Sub
Sub DGVRowsSwap(ByVal dgv As DataGridView, ByVal row1index As Integer, ByVal row2index As Integer)
    Dim r1 As DataGridViewRow = dgv.Rows(row1index)
    Dim r2 As DataGridViewRow = dgv.Rows(row2index)
    dgv.Rows.Remove(r1)
    dgv.Rows.Insert(row2index, r1)
    dgv.Rows.Remove(r2)
    dgv.Rows.Insert(row1index, r2)
End Sub