主题：复制上一行代码

If Tables("表B").count=0 Then   '如果表B是一个空表

Dim r As Row =Tables("表B").addnew()    '就增加一行

Else   '否则

Dim ColNames As String() = {"IO"}    '要复制的列名

    Dim dr As Row = Tables("表B").Rows(Tables("表B").Rows.Count - 1) '获得最后一行

    Dim r2 As Row=Tables("表B").AddNew()    '在表B中增加行

    For Each ColName As String In ColNames

        r2(ColName) = dr(ColName) '将最后一行的内容复制到新增行中.

Next        

    

End If