主题：插入行时，复制上一行的内容

 参考代码

Dim r As Row = Tables("表A").Current
Dim nr As Row = Tables("表A").addnew
nr.Move(r.Index+1)
Dim cs() As String = {"第一列", "第二列"}
For Each c As String In cs
    nr(c) = r(c)
Next