主题：原来百试百灵的代码现在突然出现问题

If e.DataCol.Name ="增加" Then
Dim dr,dr1 As DataRow
dr = e.DataRow
If dr.isnull("计划号") Then
MessageBox.Show("计划号不能为空!")
Else
Dim s As String = "计划号 = '" & dr("计划号") & "'and 材质 = '" & dr("材质") & "'and 砖号 = '" & dr("砖号") & "'and 型号 = '" & dr("型号") & "'"

dr1= DataTables("完成情况").find(s)
If dr1 IsNot Nothing Then
Dim val1 As Double = dr("成品_数量")
Dim val2 As Double = dr("成品_重量")
Dim val3 As Double = dr("废品_数量")
Dim val4 As Double = dr("废品_重量")
If dr("增加") = False Then
val1 = -val1
val2 = -val2
val2 = -val3
val2 = -val4
End If
dr1("成品情况_成品_数量")+ = val1
dr1("成品情况_成品_吨数")+ = val2
dr1("成品情况_废品_数量")+ = val3
dr1("成品情况_废品_吨数")+ = val4
dr1.Save()
Else
Dim Ls1 As String() = {"计划号","成品_数量","成品_重量","废品_数量","废品_重量"}
Dim Ls2 As String() = {"计划号","成品情况_成品_数量","成品情况_成品_吨数","成品情况_废品_数量","成品情况_废品_吨数"}
dr1 = DataTables("完成情况").AddNew()
For i As Integer = 0 To ls1.Length - 1
dr1(ls2(i)) = dr(ls1(i))
Next
dr1.Save()
End If
dr.Save()
End If
End If

这个代码是增加内容    如果我把增加改成删除  单击删除就会自动删除相关的内容  这段代码 如何更改   狐狸爸爸

根本不需要这么一个删除列的。

你看这个，在成品表当相同计划号、型号、材质、砖好的最后一行被删除时，父表的对应行也会被删除。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目38.rar