vb.net DataGridView上移和下移一行进行排序，每行代码带注释

当我们需要在一个 DataGridView 中对数据进行排序时，可以通过上移和下移行的方式来实现。下面是示例代码，其中包含了详细的注释说明：

Private Sub btnUp_Click(sender As Object, e As EventArgs) Handles btnUp.Click
    '获取当前选中行的索引
    Dim currentIndex As Integer = dgvData.CurrentRow.Index

    '如果当前选中的是第一行，则不需要上移
    If currentIndex <= 0 Then Return

    '获取当前选中行的数据
    Dim currentRow As DataGridViewRow = dgvData.CurrentRow
    Dim data As Object() = GetDataFromRow(currentRow)

    '将当前选中行的数据移除
    dgvData.Rows.RemoveAt(currentIndex)

    '将当前选中行的数据插入到上一行的位置
    dgvData.Rows.Insert(currentIndex - 1, data)

    '选中上移后的行
    dgvData.CurrentCell = dgvData.Rows(currentIndex - 1).Cells(0)
End Sub

Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
    '获取当前选中行的索引
    Dim currentIndex As Integer = dgvData.CurrentRow.Index

    '如果当前选中的是最后一行，则不需要下移
    If currentIndex >= dgvData.Rows.Count - 2 Then Return

    '获取当前选中行的数据
    Dim currentRow As DataGridViewRow = dgvData.CurrentRow
    Dim data As Object() = GetDataFromRow(currentRow)

    '将当前选中行的数据移除
    dgvData.Rows.RemoveAt(currentIndex)

    '将当前选中行的数据插入到下一行的位置
    dgvData.Rows.Insert(currentIndex + 1, data)

    '选中下移后的行
    dgvData.CurrentCell = dgvData.Rows(currentIndex + 1).Cells(0)
End Sub

Private Function GetDataFromRow(row As DataGridViewRow) As Object()
    '从 DataGridViewRow 中获取数据
    Dim data As New List(Of Object)
    For Each cell As DataGridViewCell In row.Cells
        data.Add(cell.Value)
    Next
    Return data.ToArray()
End Function

这段代码中，我们定义了两个按钮 btnUp 和 btnDown，分别用于上移和下移选中的行。在 btnUp_Click 和 btnDown_Click 事件中，我们首先获取当前选中行的索引，判断是否需要上移或下移，然后获取当前选中行的数据，将其从 DataGridView 中移除，并插入到上一行或下一行的位置。最后，通过设置 dgvData.CurrentCell 选中上移或下移后的行。GetDataFromRow 函数用于从 DataGridViewRow 中获取数据。