主题：[求助] DataRowAdding 部分复制列

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

假如这是一个订单明细表，希望只有订单编号相同的情况下才复制以上列，否则不复制，请问要如何写语句？

谢谢！

DataColChanging事件

If e.DataCol.name = "订单编号" AndAlso e.oldvalue Is Nothing Then
    Dim fdr As DataRow = e.DataTable.find("订单编号 = '" & e.newvalue & "'", "_Identify desc")
    Dim ColNames As String() = {"日期","客户","雇员"} '定义一个数组,保存复制列的名称
    For Each ColName As String in ColNames
        e.DataRow(ColName) = fdr(ColName) '将最后一行的内容复制到新增行中.
    Next
end if

If e.DataCol.name = "订单编号" Then
    Dim fdr As DataRow = e.DataTable.find("订单编号 = '" & e.newvalue & "'", "_Identify desc")
    If fdr IsNot Nothing Then
        Dim ColNames As String() = {"日期","客户","雇员"} '定义一个数组,保存复制列的名称
        For Each ColName As String in ColNames
            e.DataRow(ColName) = fdr(ColName) '将最后一行的内容复制到新增行中.
        Next
    end if
end if