主题：哪位高手给个行移动命令，用来完善狐表不能插入行的缺陷。

插入行在很多的时候还是用的着的。

行移动就是：把当前选定的行移动到希望的某一行的位置。可能是向上移动，也可能是向下移动。

如果相邻的多行能够同时移动更好。

哪位高手做一下。

xh为序号列，整数型
Dim h as Integer=CurrentTable.Current("xh")-1
Dim r As Row = CurrentTable.Rows.AddNew()
r("xh")  = h
CurrentTable.Sort = "xh"

以上为快捷菜单中使用，插入行

每次新增行，使用当前最大的xh*100，如果有1000个以内的插入，就*1000

谢谢 kylin 老兄 ！

谢谢了！

 kylin 老兄 解决了插入行的问题。

如实现行移动更好一些。

如选中要移动的行 A10 ，在菜单填入 5 ， 确定 ，即可使 A10 行移动至第 5 行。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目02.table

强烈希望能插入行

 
3楼 kylin 老兄的代码就是插入行。

我试了一下,在2行之间只能插入一行第二次插入行时不在相邻的两行之间

xh为序号列，Double型
Dim r As Row
Dim n1,n2 as Double

With CurrentTable
     n1 = .Position
     if n1> 0 then
         n2=(.rows(n1)("xh")+.rows(n1-1)("xh"))/2
     else
         n2=.rows(n1)("xh")-1
     end if
     r = .Rows.AddNew()
     r("xh") = n2
     .Sort = "xh"
End With

，我测试了一下，代码还是有点问题.比如在第4和第5行插入多行可以，再在第3和第4行间插入，结果是在第2和第3行间插入行

以上代码我测试通过的,最好示例说明