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

duan17 duan17 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
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
我想实现把当前选中行和上一行交换一下位置,就是把当前行往↑ ,可是这段代码有点问题,只有第一次是非常正确的,帮助改一下
...全文

相关推荐

评论 5
收藏 已收藏
分享
返回顶部
duan17
VB 16,718 成员 110,520 内容