主题：如何做到克隆当前行后,再移到当前行的上方

请教老师:

如何用代码实现克隆当前行后,再移到当前行的上方?

或者插入行后,再克隆当前行? 另外,克隆的时候是否可以实现只克隆某几列的内容?

问题有点奇特,麻烦老师给点提示.

1、

Dim idx As Integer = Tables("表A").Position
Dim r As Row = Tables("表A").Current.Clone
r.Move(idx)

2、

Dim idx As Integer = Tables("表A").Position
Dim r1 As Row = Tables("表A").Current
Dim r2 As Row = Tables("表A").AddNew
Dim nms() As String = {"第一列","第三列","第五列"}
For Each nm As String In nms
   r2(nm) = r1(nm)
Next