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

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