13-01-18, 10:04 PM
(آخر تعديل لهذه المشاركة : 13-01-18, 10:36 PM {2} بواسطة nooralcown.)
اشكركم من كل قلبي
استعملت هذا الكود لتحريك الصفوف وهو من مساعدتكم لي ( نقل الصف الى اسفل )
Private Sub Button11_Click_7(sender As Object, e As EventArgs) Handles Button11.Click
'تبديل بين السطر الثاني والسطر السادس
DGVRowsSwap(Me.DataGridView1, DataGridView1.CurrentRow.Index, DataGridView1.CurrentRow.Index + 1)
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
المشكلة الان اريد ان اعمل الانتقال للاعلي
استعملت نفس الشي وكتبت الكود هذا
DGVRowsSwap(Me.DataGridView1, DataGridView1.CurrentRow.Index, DataGridView1.CurrentRow.Index - 1)
الكود يعمل لكن لا ينتقل التحديدالى الصف الجديد
استعملت هذا الكود لتحريك الصفوف وهو من مساعدتكم لي ( نقل الصف الى اسفل )
Private Sub Button11_Click_7(sender As Object, e As EventArgs) Handles Button11.Click
'تبديل بين السطر الثاني والسطر السادس
DGVRowsSwap(Me.DataGridView1, DataGridView1.CurrentRow.Index, DataGridView1.CurrentRow.Index + 1)
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
المشكلة الان اريد ان اعمل الانتقال للاعلي
استعملت نفس الشي وكتبت الكود هذا
DGVRowsSwap(Me.DataGridView1, DataGridView1.CurrentRow.Index, DataGridView1.CurrentRow.Index - 1)
الكود يعمل لكن لا ينتقل التحديدالى الصف الجديد
