主题：[求助]行的前移后移在筛选状态下如何进行？

狐爸，

表中的行上移和下移在筛选状态时，处理起来是不是比较麻烦？我用下面的代码，处理下移会出错，执行后当前行被移到最后，并没有按sort字段排序，

同样的代码，在上移中（少 DESC）却是可以正常执行。

Dim tb As Table = Tables("w_set_table")
If  tb.Position<tb.Rows.Count-1 Then

    tb.Sort=""
    'tb.current.move(tbl.Position + 1) '向下移动一行
    tb.current("II0")=tb.current("II0")+1
    tb.Sort="II0,id DESC"
End If

 

Dim tb As Table = Tables("w_set_table")
tb.Sort=""
If  tb.Position>=0 Then
    'tb.current.move(tb.Position - 1) '向上移动一行
    tb.current("II0")=tb.current("II0")-1
    tb.Sort="II0,id"
End If

 

为什么会这样呢？怎么处理才好。

谢谢！

你这反复排序是什么意思?

你说下你的需求,你上要实现什么.  为什么要这也反复排序.浪费性能不说,还有奇怪的错误发生.

需求很简单啊，就是让表里的某一行上移一行或下移一行，前提是这个表是有排序的。所以要用tb.current.move(tbl.Position + 1) '向下移动一行，在有排序的时候，这命令好像不能用。

我先取消排序，然后给排序的字段赋值，再恢复排序。

除此之外，还有什么更好的办法？

如果是这样,你无需取消排序

 上移下移，不是加1减1啊，是交换上下行的排序的值啊。

这还要传例子吗？这么简单的东西，在一个有筛选的表里，你怎么移动表里的行？

这种表的记录一般不多，所以不用考虑性能浪费的问题。

看 5 6楼.

我用的筛选字段ii0下移，就是+1后，就和下一条的ii0一样，这样两个ii0一样的，排序时不见得刚才移动的行会排到后面去，如果排前面，那么刚才要移动的行，实际上是没动。

我加了一个ID就是为了避免这种情况，但是似乎起不到作用。

要互相交换