Select Case e.DataCol.name
Case "编号"
If e.DataRow.IsNull("编号") = True Then
DataTables("公司不符合项管理表").DeleteFor("编号='" & e.OldValue & "'")
Else
Dim ndr1 As DataRow = DataTables("公司不符合项管理表").Find("编号 = '" & e.OldValue & "'")
If ndr1 Is Nothing Then
Dim ndr As Row = Tables("公司不符合项管理表").AddNew
ndr("编号") = e.DataRow("编号")
ndr("产品属性") = e.DataRow("产品属性")
ndr("不符合类别_分类") = "核电不符合项"
ndr("不符合类别_级别") = e.DataRow("不符合项类别")
ndr("部门") = e.DataRow("部门")
ndr("开启日期") = e.DataRow("开启日期")
ndr("统计日期") = e.DataRow("统计日期")
ndr("不符合项描述") = e.DataRow("缺陷部件_不符合项描述")
ndr("原因分析") = e.DataRow("拟定方案_原因分析_内容")
ndr("处理方案") = e.DataRow("拟定方案_纠正措施_内容")
ndr("处理结果") = e.DataRow("关闭决定_SPEC决定")
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.Move(0)
Else
ndr1("编号") = e.NewValue
End If
End If
End Select
加好友 
发短信
Post By：2019/10/30 17:25:00 [显示全部帖子]
