For Each ar As DataRow In Tables("原材料加工_table2").DataTable.Select("原材料加工单号 = '" & Tables("原材料加工_table1").current("原材料加工单号") & "' ")
Dim br = DataTables("大货用量表").find("物料基本信息_物料ID = '" & ar("用量信息_上级") & "' and 物供号 = '" & ar("物供号") & "'")
Dim yr = Tables("原材料加工_table3").DataTable.find("物料基本信息_物料ID = '" & br("物料基本信息_物料ID") & "' and 物供号 = '" & ar("物供号") & "'")
If br IsNot Nothing AndAlso yr Is Nothing Then
Dim nr As Row = Tables("原材料加工_table3").addnew
nr("原材料加工单号") = Tables("原材料加工_table1").current("原材料加工单号")
nr("物料基本信息_物料名称") = br("物料基本信息_物料名称")
nr("物料基本信息_物料编码") = br("物料基本信息_物料编码")
nr("物料配色") = br("物料配色")
nr("物供号") = br("物供号")
nr("物料基本信息_布封") = br("物料基本信息_布封")
nr("需求数") = br("采购应订数")
End If
Next
加好友 
发短信
Post By：2018/10/30 14:21:00 [只看该作者]
