If e.DataRow("物资说明") = "紧固件" Then
Dim ndr As DataRow = DataTables("领料清单").Find("预算编号 = '" & e.DataRow("预算编号") & "'")
If ndr Is Nothing Then
Dim nr As Row = Tables("领料清单").AddNew
nr.Move(0)
ndr = nr.DataRow
End If
ndr("编号") = e.DataRow("编号")
ndr("预算编号") = e.DataRow("预算编号")
ndr("生产令号") = e.DataRow("生产令号")
ndr("项目名称") = e.DataRow("项目名称")
ndr("物资说明") = e.DataRow("物资说明")
ndr("名称") = "/"
ndr("规格") = "/"
ndr("材质") = "/"
ndr("单位") = "批"
ndr("领料数量") = "1"
ndr("领料日期") = Date.today
ndr.Move(0)
End If
加好友 
发短信
Post By：2018/12/1 16:32:00 [只看该作者]
