主题：同步删除行

        Else

            Dim ndr1 As DataRow = DataTables("原材料采购明细表").Find("预算编号 = '" & e.DataRow("预算编号") & "'")

            If e.DataRow("物资说明") = "原材料" 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.Move(0)

            ElseIf e.DataCol.name = "物资说明" AndAlso e.OldValue = "原材料"

                DataTables("原材料采购明细表").deletefor("预算编号 = '" & e.DataRow("预算编号") & "'")

            End If

        End If

End Select