如何让超级列表框的表项上移或下移

如何让超级列表框的表项上移或下移

上移就是将当前行与上一行的内容对调，下移则是当前行与一下行内容对调。
写个函数，要三个参数，分别是copy 超级列表框 源行号 目标行号
这个函数中执行一个循环，循环次数为参数超级列表框的列数，将源行号与目标行号对应列的内容对调。
如：
对换超级列表框行数据（参2113数 超级列表框 超级列表框 ，参数 源行号 整数型 ，参数 目标行号 整数型）
整数型 I
文本型 文本
计次循环首（超级列表框.列数，5261I）
文本=超级列表框.取数据（源行号，I）
超级列表框.置数据（源行号，I，超级列表框.取数据（目标行号，I））4102
超级列表框.置数据（目标行号，I，文本）
计次循环尾（）

调用方式为：
上移，对换超级列表框行数据（超级列表框1，当前行，当前行-1）
下移，对换超级列表框行数据（超级列表框1，当前行，当前行+1）
注意自行判断当前行是否处于最顶或最底。

以上方法仅为处理过程演示，不是1653代码，请自行翻译成代码。

交换上下两个选项内容就可以了 注意判断选中首尾选项时的状态