主题：新手求如何实现同一列中的值和上一行相同而不用输入

增加一行时执行，此时新增行(DataRow)已经创建，但并未真正增加到DataTable中，通常在此处对新增行进行默认值的设置。

If e.DataTable.DataRows.Count = 0 Then '如果是一个空表
      Return '那么返回
End If
Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) '获得最后一行
e.DataRow("产品名称") = dr("产品名称")  '默认新增行产品名称为上一行产品名称.