主题：[求助]克隆行时DataRowAdding中Nothing为何无效-已解决

Select Case e.DataTable.Name 
      Case "出差管理"
        e.DataRow("填写日期") = Date0 '获取的服务器日期
        e.DataRow("经办人") = _UserName '登录用户名

        e.DataRow("复核人") = nothing '别的字符都行，但Nothing无效，下同

End Select

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

想设置为Nothing的就不包含在数组中。

请将代码写在DataRowAdded事件中，而不是DataRowAdding事件。

我也晕！DataRowAdding中能执行的代码，在DataRowAdded中也能执行；而前者不能执行的代码，后者也能执行。在后者中，插入行、添加行、克隆行都一样。那DataRowAdding还有用吗？

DataRowAdding

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

克隆行的过程是：

1、执行DataRowAdding事件

2、从被克隆的行赋值数据到新的行

3、执行DataRowAdded事件。

明白了？