If e.DataCol.Name = "生产流程单_转接序发送" AndAlso e.DataRow("生产流程单_转接序发送") = True AndAlso e.DataRow("生产流程单_加工方式") = "外协" Then
Dim nma() As String = {"生产通知单_订单编号","生产通知单_产品名称","生产流程单_投入数","生产流程单_接序时间","生产流程单_作业者"} 'A表数据来源列
Dim nmb() As String = {"外协加工通知单_订单编号","外协加工通知单_产品名称","外协加工通知单_数量","外协加工通知单_出厂时间","外协加工通知单_生产负责人"} 'B表数据接收列
Dim dr As DataRow = DataTables("采购外协管理系统").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
End If