If e.DataTable.DataRows.Count = 0 Then \'如果是一个空表
    Return \'那么返回
End If
Dim ColNames As String() = {"策划_客户名称", "策划_产品名称", "策划_图号", "策划_加工工序", "策划_设备型号", "策划_加工方式", "策划_供应商选择", "策划_加工数量"} \'定义一个数组,保存复制列的名称
Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) \'获得最后一行
For Each ColName As String In ColNames
    e.DataRow(ColName) = dr(ColName) \'将最后一行的内容复制到新增行中.
Next