Case "到货_第一批_日期"
If e.DataRow.IsNull("到货_第一批_日期") = True Then
DataTables("外购件入厂检验台账").DeleteFor("编号='" & e.DataRow("编号") & "'")
Else
Dim ndr1 As DataRow = DataTables("外购件入厂检验台账").Find("编号 = '" & e.DataRow("编号") & "'")
If e.DataRow("物资说明") = "外购件" OrElse e.DataRow("物资说明") = "外购件-中广核工程" OrElse e.DataRow("物资说明") = "电气" Then
If ndr1 Is Nothing Then
Dim ndr As Row = Tables("外购件入厂检验台账").AddNew
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("材质") = e.DataRow("材质")
ndr("单位") = e.DataRow("单位")
ndr("代号") = "B"
ndr("到货数量") = e.DataRow("到货数量")
ndr("到货重量Kg") = e.DataRow("到货重量Kg")
ndr("中标情况_中标单位") = e.DataRow("中标情况_中标单位")
ndr("送检_送检日期") = e.DataRow("到货_第一批_日期")
ndr.Move(0)
Else
ndr1("到货数量") = e.DataRow("到货数量")
End If
End If
End Select
加好友 
发短信
Post By：2020/1/9 11:29:00 [显示全部帖子]
