في Datagridview أزي أعمل تبادل بين الصفوف

عن طريق خصائص الجريد فيو

columns:collection

السلام عليكم

شكراً أخي abu_za3ror لتعاونك انا وجد الكود الذي يقوم بعملية التبادل

قوم بوضع هذا الكود في Command Buttoun (هذا لتباديل الصف لأعلي)

		If DataGridView1.CurrentRow Is Nothing Then Return
		If DataGridView1.CurrentRow.Index = 0 Then Return
		Dim MyIndexCur As Integer = -1
		Dim MyIndexSwap As Integer = -1
		Dim MyCurRow As New DataGridViewRow

		MyIndexCur = DataGridView1.CurrentRow.Index
		MyIndexSwap = MyIndexCur - 1
		MyCurRow = DataGridView1.CurrentRow
		Dim MyNo As Integer = MyCurRow.Cells("CelNum").Value
		MyCurRow.Cells("CelNum").Value = DataGridView1.Rows(MyIndexSwap).Cells("CelNum").Value
		DataGridView1.Rows(MyIndexSwap).Cells("CelNum").Value = MyNo
		DataGridView1.Rows.RemoveAt(MyIndexCur)
		DataGridView1.Rows.Insert(MyIndexSwap, MyCurRow)
		DataGridView1.CurrentCell = DataGridView1.Rows(MyIndexSwap).Cells("CelNum")

قوم بوضع هذا الكود في Command Buttoun (هذا لتباديل الصف لأسفل)

		If GridSearch.CurrentRow Is Nothing Then Return
		If GridSearch.CurrentRow.Index = GridSearch.RowCount - 1 Then Return
		Dim MyIndexCur As Integer = -1
		Dim MyIndexSwap As Integer = -1
		Dim MyCurRow As New DataGridViewRow

		MyIndexCur = GridSearch.CurrentRow.Index
		MyIndexSwap = MyIndexCur + 1
		MyCurRow = GridSearch.CurrentRow
		Dim MyNo As Integer = MyCurRow.Cells("CelNum").Value
		MyCurRow.Cells("CelNum").Value = GridSearch.Rows(MyIndexSwap).Cells("CelNum").Value
		GridSearch.Rows(MyIndexSwap).Cells("CelNum").Value = MyNo
		GridSearch.Rows.RemoveAt(MyIndexCur)
		GridSearch.Rows.Insert(MyIndexSwap, MyCurRow)
		GridSearch.CurrentCell = GridSearch.Rows(MyIndexSwap).Cells("CelNum")

أتمني أن يفيدكم هذا الكود