主题：自动增加行及同步更新

改成

Select Case e.DataCol.name
    Case "编号","不符合项类别","项目名称","机组号","设备名称"
        If e.DataRow.IsNull("编号") = True Then
            DataTables("公司不符合项管理表").DeleteFor("不符合项编号 ='" & e.DataRow("编号") & "'")
        Else
            Dim ndr1 As DataRow = DataTables("公司不符合项管理表").Find("不符合项编号 = '" & e.DataRow("编号") & "'")
            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("项目名称") & "" & e.DataRow("机组号") & "" & e.DataRow("设备名称")
                ndr("处理结果") = e.DataRow("关闭决定_SPEC决定")
                ndr("关闭日期") = e.DataRow("关闭决定_日期")
                ndr("质量损失金额") = e.DataRow("合计损失金额")
                ndr("质量考核金额") = e.DataRow("质量考核金额")
                ndr.Move(0)
            Else
                ndr1("不符合类别") = "核电不符合项" & "" & e.DataRow("不符合项类别")
                ndr1("项目或检查名称") = e.DataRow("项目名称") & "" & e.DataRow("机组号") & "" & e.DataRow("设备名称")
            End If
        End If
End Select