主题：[求助]插入行自动复制上一行内容并将焦点定位在新行

老师好。下面的代码想实现“插入行并自动复制上一行内容，同时将焦点定位在新插入的行上”。目前在指定的位置插入行已实现，但复制不了上一行内容，焦点也不能定位在新插入的行上，请老师帮助指正。谢谢。

Dim dt As Table = Tables("部门岗位设置")
Dim newRow As Row = dt.InsertNew
Dim pr As Row = dt.Rows(dt.Position-1)
newRow("岗类编码") = pr("岗类编码")
newRow("岗位类别") = pr("岗位类别")

老师好。如下两句代码不对，不复制上一行的内容，而是填入了“岗类编码”和“岗位类别”这四个字。还请老师指正。谢谢。

 

代码没问题，第一行的时候，上一行就是列标题

 

 

老师好。代码能否实现“在当前行”的前面插入行，或者在“当前行”的后面插入行。谢谢。

Dim dt As Table = Tables("表A")
Dim pr As Row = dt.current
Dim newRow As Row = dt.InsertNew
newRow("第一列") = pr("第一列")
newrow.move(pr.Index)