DataGrid的行交换问题(在线等)

[duan17]

form_load()
dt2.Columns.Add("order", GetType(System.Int16))
end
'-----------

private sub aaa()
If grd02.CurrentRowIndex = 0 Then Exit Sub

Dim i As Int16 = 1
Dim dr As DataRow

For Each dr In dt2.Rows

dr("order") = i
i += 1

Next

Dim dv As DataView

dv = dt2.DefaultView

Dim j As Int16 = dt2.Rows(grd02.CurrentRowIndex - 1)("order")

dt2.Rows(grd02.CurrentRowIndex - 1)("order") = dt2.Rows(grd02.CurrentRowIndex)("order") 'current row
dt2.Rows(grd02.CurrentRowIndex)("order") = j

dv.Sort = "order"

grd02.DataSource = dt2.DefaultView

end sub
我想实现把当前选中行和上一行交换一下位置,就是把当前行往↑ ,可是这段代码有点问题,只有第一次是非常正确的,帮助改一下