共26 条记录, 每页显示 10 条, 页签: [1] [2][3]

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

1楼

gaoqr 发表于：2009/2/28 8:12:00

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

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

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

哪位高手做一下。

[此贴子已经被作者于2009-2-28 8:13:14编辑过]

2楼

kylin 发表于：2009/2/28 9:01:00

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

[此贴子已经被作者于2009-2-28 9:03:47编辑过]

3楼

gaoqr 发表于：2009/2/28 9:32:00

谢谢 kylin 老兄！

[此贴子已经被作者于2009-2-28 9:56:34编辑过]

4楼

gaoqr 发表于：2009/2/28 15:31:00

以下是引用hnaysx在2009-2-28 10:35:00的发言：
这个等老六来了我问问他应该可以

谢谢了！

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

如实现行移动更好一些。

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目02.table

5楼

实话实说 发表于：2009/3/1 6:59:00

强烈希望能插入行

6楼

gaoqr 发表于：2009/3/1 7:56:00

以下是引用实话实说在2009-3-1 6:59:00的发言：
强烈希望能插入行

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

7楼

实话实说 发表于：2009/3/1 8:50:00

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

8楼

don 发表于：2009/3/1 12:10:00

以下是引用实话实说在2009-3-1 8:50:00的发言：

我试了一下,在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

[此贴子已经被作者于2009-3-1 12:15:06编辑过]

9楼

实话实说 发表于：2009/3/1 14:23:00

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

10楼

don 发表于：2009/3/1 14:31:00

以下是引用实话实说在2009-3-1 14:23:00的发言：
，我测试了一下，代码还是有点问题.比如在第4和第5行插入多行可以，再在第3和第4行间插入，结果是在第2和第3行间插入行

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

共26 条记录, 每页显示 10 条, 页签: [1] [2][3]