- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 哪位高手给个行移动命令，用来完善狐表不能插入行的缺陷。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=1967)
-- 发布时间：2009/2/28 8:12:00
-- 哪位高手给个行移动命令，用来完善狐表不能插入行的缺陷。
插入行在很多的时候还是用的着的。
行移动就是：把当前选定的行移动到希望的某一行的位置。可能是向上移动，也可能是向下移动。
如果相邻的多行能够同时移动更好。
哪位高手做一下。
[此贴子已经被作者于2009-2-28 8:13:14编辑过]
-- 发布时间：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编辑过]
-- 发布时间：2009/2/28 9:32:00
--
谢谢 kylin 老兄 ！
[此贴子已经被作者于2009-2-28 9:56:34编辑过]
-- 发布时间：2009/2/28 15:31:00
--
以下是引用hnaysx在2009-2-28 10:35:00的发言：
这个等老六来了 我问问他 应该可以
这个等老六来了 我问问他 应该可以
谢谢了！
kylin 老兄 解决了插入行的问题。
如实现行移动更好一些。
如选中要移动的行 A10 ，在菜单填入 5 ， 确定 ，即可使 A10 行移动至第 5 行。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目02.table |
-- 发布时间：2009/3/1 6:59:00
--
强烈希望能插入行
-- 发布时间：2009/3/1 7:56:00
--
以下是引用实话实说在2009-3-1 6:59:00的发言：
强烈希望能插入行
强烈希望能插入行
3楼 kylin 老兄的代码就是插入行。
-- 发布时间：2009/3/1 8:50:00
--
我试了一下,在2行之间只能插入一行第二次插入行时不在相邻的两行之间
-- 发布时间：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编辑过]
-- 发布时间：2009/3/1 14:23:00
--
，我测试了一下，代码还是有点问题.比如在第4和第5行插入多行可以，再在第3和第4行间插入，结果是在第2和第3行间插入行
-- 发布时间：2009/3/1 14:31:00
--
以下是引用实话实说在2009-3-1 14:23:00的发言：
，我测试了一下，代码还是有点问题.比如在第4和第5行插入多行可以，再在第3和第4行间插入，结果是在第2和第3行间插入行
，我测试了一下，代码还是有点问题.比如在第4和第5行插入多行可以，再在第3和第4行间插入，结果是在第2和第3行间插入行
以上代码我测试通过的,最好示例说明