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

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