要改成具体的表名,如
Dim t As Table = Tables("表A")If t.Rows.Count = 0 Then '如果是一个空表 Return '那么返回End IfDim dr As Row = t.rows(t.Rows.Count - 1) '获得最后一行For Each dc As Col In t.Cols e.DataRow(dc.Name) = dr(dc.Name) '将最后一行的内容复制到新增行中.Next