vb.net DataGridView左移和右移进行排序,无任何报错,每行代码带注释
时间: 2024-03-22 10:38:09 浏览: 101
带排序和筛选功能的DataGridView
4星 · 用户满意度95%
好的,下面是实现DataGridView左移和右移进行排序的VB.NET代码,每行代码都有注释解释其作用:
```
Private Sub btnMoveLeft_Click(sender As Object, e As EventArgs) Handles btnMoveLeft.Click
'获取选中的行数
Dim selectedRowCount As Integer = DataGridView1.Rows.GetRowCount(DataGridViewElementStates.Selected)
'如果选中的行数大于0
If selectedRowCount > 0 Then
'循环选中的行
For i As Integer = 0 To selectedRowCount - 1
'获取当前选中的行的索引
Dim rowIndex As Integer = DataGridView1.SelectedRows(i).Index
'如果当前选中的行不是第一行,可以进行左移操作
If rowIndex > 0 Then
'获取当前选中行的DataGridViewRow对象
Dim rowToMove As DataGridViewRow = DataGridView1.Rows(rowIndex)
'从DataGridView中删除当前选中的行
DataGridView1.Rows.Remove(rowToMove)
'将当前选中的行插入到它的前面
DataGridView1.Rows.Insert(rowIndex - 1, rowToMove)
'选中当前移动的行
DataGridView1.Rows(rowIndex - 1).Selected = True
End If
Next
End If
End Sub
Private Sub btnMoveRight_Click(sender As Object, e As EventArgs) Handles btnMoveRight.Click
'获取选中的行数
Dim selectedRowCount As Integer = DataGridView1.Rows.GetRowCount(DataGridViewElementStates.Selected)
'如果选中的行数大于0
If selectedRowCount > 0 Then
'循环选中的行
For i As Integer = 0 To selectedRowCount - 1
'获取当前选中的行的索引
Dim rowIndex As Integer = DataGridView1.SelectedRows(i).Index
'如果当前选中的行不是最后一行,可以进行右移操作
If rowIndex < DataGridView1.Rows.Count - 1 Then
'获取当前选中行的DataGridViewRow对象
Dim rowToMove As DataGridViewRow = DataGridView1.Rows(rowIndex)
'从DataGridView中删除当前选中的行
DataGridView1.Rows.Remove(rowToMove)
'将当前选中的行插入到它的后面
DataGridView1.Rows.Insert(rowIndex + 1, rowToMove)
'选中当前移动的行
DataGridView1.Rows(rowIndex + 1).Selected = True
End If
Next
End If
End Sub
```
以上是实现DataGridView左移和右移进行排序的VB.NET代码,希望能够帮助到你!
阅读全文