此主题相关图片如下:fa.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-6/20156151729995930.jpg)
截图如上, 代码如下
Dim Cols1() As String = {"序号","物料编码","数量"}
Dim Cols2() As String = {"物料_序号","物料_物料编码","物料_单用量"}
For Each dr1 As DataRow In DataTables("bom").Select("成品编码 = '" & mbtname & "'")
msgbox("123" & dr1("物料编码") & "456" & mtz & "789")
Dim filter As String = "物料_物料编码 = '" & dr1("物料编码") & "'"
If mtz = Nothing Then
filter = filter & " and 通知单号 is null"
Else
filter = filter & " and 通知单号 = '" & mtz & "'"
End If
If DataTables("物料管理系统").Find(filter) Is Nothing Then
Dim dr2 As DataRow = DataTables("物料管理系统").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
dr2("通知单号") = mtz
dr2("成品编码") = mbtname
End If
Next