Select Case e.DataCol.name
Case "焊接方法"
If e.DataRow.IsNull("焊接方法") Then
DataTables("焊接明细表").DeleteFor("零部件编号 = '" & e.DataRow("零部件编号") & "'")
Else
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 If
End Select
修改“焊接方法”后,原来生成的行不会自动删除,怎么改?