主题：插入一行，将上一行的内容复制到新增行中，代码如何写？

增加一行将最好一行的内容复制到新增的行中代码如下：

Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) '获得最后一行
For Each dc As DataCol In e.DataTable.DataCols
    e.DataRow(dc.Name) = dr(dc.Name) '将最后一行的内容复制到新增行中.
Next

如果是插入一行，将上一行的内容复制到新增行中，代码如何写？

代码如何写哪？