哪位高手给个行移动命令，用来完善狐表不能插入行的缺陷。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 哪位高手给个行移动命令，用来完善狐表不能插入行的缺陷。

共有27080人关注过本帖树形打印复制链接主题：哪位高手给个行移动命令，用来完善狐表不能插入行的缺陷。

gaoqr

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：353 积分：3058 威望：0 精华：0 注册：2008/9/1 6:39:00

哪位高手给个行移动命令，用来完善狐表不能插入行的缺陷。 发帖心情

Post By：2009/2/28 8:12:00 [显示全部帖子]

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

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

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

哪位高手做一下。

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

gaoqr

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：353 积分：3058 威望：0 精华：0 注册：2008/9/1 6:39:00

Post By：2009/2/28 9:32:00 [显示全部帖子]

谢谢 kylin 老兄！

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

gaoqr

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：353 积分：3058 威望：0 精华：0 注册：2008/9/1 6:39:00

Post By：2009/2/28 15:31:00 [显示全部帖子]

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

谢谢了！

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

如实现行移动更好一些。

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

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

gaoqr

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：353 积分：3058 威望：0 精华：0 注册：2008/9/1 6:39:00

Post By：2009/3/1 7:56:00 [显示全部帖子]

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

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

gaoqr

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：353 积分：3058 威望：0 精华：0 注册：2008/9/1 6:39:00

Post By：2009/3/3 7:52:00 [显示全部帖子]

感谢 ybil 版主！

gaoqr

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：353 积分：3058 威望：0 精华：0 注册：2008/9/1 6:39:00

Post By：2009/3/3 14:19:00 [显示全部帖子]

把老六与 ybil 版主的代码整合在一起，可完美的解决行移动。

xh 为整数，可以隐藏。

Dim a As String = MainTable.Name
For i As integer = 0 to DataTables(a).DataRows.Count - 1
    DataTables(a) .DataRows(i)("xh") = i + 1
Next
Dim n as integer = ConfigBar.Items("编辑框1").Text
Dim n1 as Double = CurrentTable.Position
if n1 > n
        CurrentTable.Current("xh") = n - 1
    else
       CurrentTable.Current("xh") = n + 1
    end if
CurrentTable.Sort = "xh"

下一主题 >> << 上一主题

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