标题：增加的列

下面这段代码不知错在哪，B表中的数据填不上

If e.DataCol.Name = "客户来源" Then 

    Dim dr As DataRow

    '否则在产品表查找同名的产品行,将找到的行赋值给变量dr

    dr = DataTables("接单登记").Find("[接单单号] = '" & e.DataRow("接单单号") & "'")

    If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing

        e.DataRow("客户来源") = dr("客户来源")

    End If

End If

A表是接单登记 B表是发货表，上边代码是在B表写的

批量把A表中客户来源列的数据赋值到B表发货表中的客户来源列