老师，我表打开就设置了合并模式，如图
此主题相关图片如下：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

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

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

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

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

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

此主题相关图片如下：01.png

图2，在查询机构为总公司下的截图

此主题相关图片如下：02.png

图3，在在查询机构为总公司下插入新行的截图

此主题相关图片如下：03.png

图4，新插入行后重新在加载全部行的截图

图4，新插入行后重新在加载全部行的截图

此主题相关图片如下：04.png

 你重新加载以后，对表进行一下排序才行的啊。

Tables("合并模式").Sort = "序号,所属机构"

没转过弯来

排序这个箭头符号可以不显示不，成品后有这个符号不好看，处女座的有强迫症？

菜单->表样式->显示排序标记->False