主题：复制

DataRowAdded事件，如下代码

Dim t As Table = Tables(e.DataTable.Name)
Dim idx As Integer = t.FindRow(e.DataRow)
If idx > 0 Then
    Dim r2 As Row = t.Rows(idx - 1)
   
    For Each c As Col In t.cols
        e.DataRow(c.name) = r2(c.name)
    Next
End If