主题：增加行问题

去编写datarowdeleting事件

DataTables("组装件详单及尺寸要求").DeleteFor("零部件编号='" & e.DataRow("零部件编号") & "'")

Select Case e.DataCol.name
    Case "焊接方法"
        DataTables("焊接明细表").DeleteFor("零部件编号 = '" & e.DataRow("零部件编号") & "'")
        Dim ndr2 As DataRow = DataTables("焊接明细表").Find("零部件编号 = '" & e.DataRow("零部件编号") & "' And 焊缝编号 = '" & e.DataRow("焊缝编号") & "' And 工艺卡号 = '" & e.DataRow("工艺卡号") & "'And 焊接方法 = '" & e.DataRow("焊接方法") & "'")
        If ndr2 Is Nothing Then
            For i As Integer = 1 To e.DataRow("数量")
                Dim ndr As DataRow = DataTables("焊接明细表").AddNew
                ndr("零部件编号") = e.DataRow("零部件编号")
                ndr("母材材质_部件1") = e.DataRow("母材材质_部件1")
                ndr("母材材质_部件2") = e.DataRow("母材材质_部件2")
                ndr("焊缝编号") = e.DataRow("焊缝编号")
                ndr("工艺卡号") = e.DataRow("工艺卡号")
                ndr("焊接方法") = e.DataRow("焊接方法")
                ndr("数量") = "1"
            Next
        End If
End Select