[求助]插入行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]插入行

共有2476人关注过本帖树形打印复制链接主题：[求助]插入行

cd_tdh

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

加好友

发短信

等级：狐精帖子：3106 积分：20733 威望：0 精华：0 注册：2016/3/28 16:57:00

[求助]插入行 发帖心情

Post By：2016/7/6 15:08:00 [只看该作者]

老师，我表打开就设置了合并模式，如图
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160706150451.jpg

我现在插入行时，需要新插入的行额前面几列套用上一行数据，在合并模式下周末实现啊？

代码这样写，在合并模式下不能实现

Dim r As Row = Tables("工程款管理").Current
Dim nr As Row = Tables("工程款管理").InsertNew
For Each c As Col In Tables("工程款管理").Cols
nr(c.Name) = r(c.Name)
Next

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2016/7/6 16:13:00 [只看该作者]

Dim sort As String = Tables("合并模式").sort
Dim r As Row = Tables("合并模式").Current
Tables("合并模式").AllowMerge =False
Tables("合并模式").sort = ""
Dim nr As Row = Tables("合并模式").InsertNew
For Each c As Col In Tables("合并模式").Cols
nr(c.Name) = r(c.Name)
Next
Tables("合并模式").sort = sort
Tables("合并模式").AllowMerge = True

cd_tdh

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

加好友

发短信

等级：狐精帖子：3106 积分：20733 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2016/7/6 21:51:00 [只看该作者]

默认是插到前面，我插到后面一行怎么办？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/6 23:17:00 [只看该作者]

Dim sort As String = Tables("合并模式").sort
Dim r As Row = Tables("合并模式").Current
Tables("合并模式").AllowMerge =False
Tables("合并模式").sort = ""
Dim nr As Row = Tables("表A").addnew
nr.Move(r.Index+1)
For Each c As Col In Tables("合并模式").Cols
nr(c.Name) = r(c.Name)
Next
Tables("合并模式").sort = sort
Tables("合并模式").AllowMerge = True

cd_tdh

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

加好友

发短信

等级：狐精帖子：3106 积分：20733 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2016/7/7 10:08:00 [只看该作者]

谢谢大红袍老师，这样才是插入到当前行之后。

Dim nr As Row = Tables("表A").addnew
nr.Move(r.Index+0)

cd_tdh

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

加好友

发短信

等级：狐精帖子：3106 积分：20733 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2016/8/4 9:28:00 [只看该作者]

以下是引用大红袍在2016/7/6 23:17:00的发言：
Dim sort As String = Tables("合并模式").sort
Dim r As Row = Tables("合并模式").Current
Tables("合并模式").AllowMerge =False
Tables("合并模式").sort = ""
Dim nr As Row = Tables("表A").addnew
nr.Move(r.Index+1)
For Each c As Col In Tables("合并模式").Cols
nr(c.Name) = r(c.Name)
Next
Tables("合并模式").sort = sort
Tables("合并模式").AllowMerge = True

大红袍老师，在合并的行后面插入行，现在有存在这个问题，我加了几个查询条件，如果我查询后，在插入行，在查询条件下是正确的，但我加载全部行后，插入的行不在原来位置。如需下图：

图1，在正常模式下的截图

图片点击可在新窗口打开查看此主题相关图片如下：01.png