主题：移动选定多行到指定位置

此主题相关图片如下：未命名.bmp

 

如图

这需要规律吧，比如如何判断这些行应该上移到哪里？

上移到哪里的规律我有了。

就是不知道怎么移动

move好像只能移动当前行。

是系统命令，可以移动多行，但是只能上一行，下一行

move没有TopRow等属性，循环执行系统命令吧。

以前就是遍历的。想提高的效率。

根据上图，基本这样了。

 

With CurrentTable
    Dim Up As Integer = .FindRow("[TreeFullPath] = '超级管理员'",.Position + 1, True )
    Dim dr As DataRow = .DataTable.Find("[TreeFullPath] Like '*总经理*'",)
    Dim dr1 As DataRow = .DataTable.Find("[TreeFullPath] Like '*总经理*'", "_SortKey Desc")
    Dim TopRow As Integer = .FindRow(dr)
    Dim BottomRow As Integer = .FindRow(dr1)
    .Select(TopRow,0,BottomRow,0)
    For i As Integer = Up+1 To TopRow -1
        Syscmd.Row.MoveUp()
    Next
End With

 

遍历执行Syscmd.Row.MoveUp()上移次数和遍历每行后一行一行的上移有质的区别

测试了一下，上移250行，我用时0.378秒，可以接受