主题：求助：如何一键生成对应行数表记录

现在是实现了向下增加一行 但是原来的序号出现了如下

1

2

3

4

6

5

 

也就是最后一个增加的 但是序号却往上调了一行

 

下面是表中序号增加的代码

Dim drs As List(Of DataRow) = e.DataTable.Select("案卷编号 = '" & e.OldValue & "'", "_sortkey")
    For i As Integer = 0 To drs.count - 1       
        drs(i)("序号") = i + 1
    Next
    drs = e.DataTable.Select("案卷编号 = '" & e.NewValue & "'", "_sortkey")
    For i As Integer = 0 To drs.count - 1       
        drs(i)("序号") = i + 1
    Next

 

求纠正  在当前行后面新增一行后，序号是最后一个 而不要跳级

 

 

r.Move(r.Index+1) 是不是这导致的 移动？