“物资说明”列填写有变化 -- 有什么变化？
……
Else
If e.DataRow("物资说明") = "原材料" Then
Dim ndr As DataRow = DataTables("原材料采购明细表").Find("预算编号 = '" & e.DataRow("预算编号") & "'")
if ndr is nothing then
ndr = dataTables("原材料采购明细表").AddNew
end if
ndr("内部合同编号") = e.DataRow("内部合同编号")
ndr("预算编号") = e.DataRow("预算编号")
ndr("生产令号") = e.DataRow("生产令号")
ndr("项目名称") = e.DataRow("项目名称")
ndr("物资说明") = e.DataRow("物资说明")
ndr("编制人") = e.DataRow("编制人")
ndr("取消采购") = e.DataRow("取消采购")
ndr("事业部_审核")= e.DataRow("事业部_审核")
ndr.Move(0)
End If
End If
加好友 
发短信
Post By：2020/9/4 13:47:00 [只看该作者]
