主题：自动修改

在表“零件探伤清单”datacolchanged编码如下：

在表“VT报告”中自动生成行，但如果表“零部件探伤清单”中内容修改，“VT”报告中如何实现自动修改？

Select Case e.DataCol.Name
    Case "探伤要求_VT"
        If e.newvalue = False Then
            DataTables("VT报告").DeleteFor("零部件编号='" & e.DataRow("零部件编号") & "'")
        Else
            Dim ndr As DataRow = DataTables("VT报告").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("焊缝编号") = "/"
            ndr("产品标识") = "/"
            ndr("编制人资质") = "VT"
            ndr("审核人资质") = "VT"
        End If
End Select