Doing something as simple as moving an unbound DataGridView (dgv) row up or down via code really shouldn’t be as difficult of a task as Visual Studio makes it.
I started out by creating two buttons on a Windows Form called btn_Up and btn_Down, respectively. I then created a single sub routine that would be passed in the number of rows (+1 or -1) that the current row should be moved. For example, to move a row “up” in dgv, it’s row index will be one less than it currently is (before the move)
Private Sub btn_Up_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Up.Click
‘If already on the first row, don’t try to move the row up
If Me.dgv_FinishingScheduleColumns.CurrentCell.RowIndex = 0 Then
Exit Sub
End If
MoveRow(-1) ‘ move up in the datagridview (row index is 1 less)
End Sub
Private Sub btn_Down_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Down.Click
‘If already on the bottom row, don’t try to move the row down
If Me.dgv_FinishingScheduleColumns.CurrentCell.RowIndex = Me.dgv_FinishingScheduleColumns.RowCount – 1 Then
Exit Sub
End If
MoveRow(1) ‘ move down in the datagridview (row index is 1 more)
End Sub
Private Sub MoveRow(ByVal i As Integer)
Try
If (Me.dgv.SelectedCells.Count > 0) Then
Dim curr_index As Integer = Me.dgv.CurrentCell.RowIndex
Dim curr_col_index As Integer = Me.dgv.CurrentCell.ColumnIndex
Dim curr_row As DataGridViewRow = Me.dgv.CurrentRow
Me.dgv.Rows.Remove(curr_row)
Me.dgv.Rows.Insert(curr_index + i, curr_row)
Me.dgv.CurrentCell = Me.dgv(curr_col_index , curr_index + i)
End If
Catch ex As Exception
‘ do nothing if error encountered while trying to move the row up or down
End Try
End Sub
In addition to moving the row that contains the selected cell up or down, the MoveRow sub routine also selects the related cell in its “new” location after it has been moved. I kept trying to set the CurrentCell.Selected value, but in the end, I needed to actually specify what the CurrentCell actually was.
Happy programming!
Private Sub btn_Up_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Up.Click
MoveRow(-1) ‘ move up in the datagridview (row index is 1 less)
End Sub
Private Sub btn_Down_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Down.Click
MoveRow(1) ‘ move down in the datagridview (row index is 1 more)
End Sub
Private Sub MoveRow(ByVal i As Integer)
Try
If (Me.dg_Environments.SelectedCells.Count > 0) Then
Dim curr_index As Integer = Me.dg_Environments.CurrentCell.RowIndex
Dim curr_cell_index As Integer = Me.dg_Environments.CurrentCell.ColumnIndex
Dim curr_row As DataGridViewRow = Me.dg_Environments.CurrentRow
Me.dg_Environments.Rows.Remove(curr_row)
Me.dg_Environments.Rows.Insert(curr_index + i, curr_row)
Me.dg_Environments.CurrentCell = Me.dg_Environments(curr_cell_index, curr_index + i)
End If
Catch ex As Exception
‘ do nothing if error encountered while trying to move the row up or down
End Try
End Sub
Codepad 