Select Case e.DataCol.name
Case "领料情况_预领余额"
If e.newvalue = False Then
DataTables("领料清单").DeleteFor("编号='" & e.DataRow("编号") & "'")
Else
If e.DataRow("领料情况_分机组") = True Then
For i As Integer = 1 To 2
Dim ndr2 As DataRow = DataTables("领料清单").AddNew
ndr2("编号") = e.DataRow("编号")
ndr2("预算编号") = e.DataRow("预算编号")
ndr2("物资说明") = e.DataRow("物资说明")
ndr2("名称") = e.DataRow("物资名称")
ndr2("规格") = e.DataRow("规格")
ndr2("材质") = e.DataRow("材质")
ndr2("领料日期") = Date.today
Next
End If
End If
If e.newvalue = False Then
DataTables("领料清单").DeleteFor("编号='" & e.DataRow("编号") & "'")
Else
If e.DataRow("领料情况_不分机组") = True Then
Dim ndr3 As DataRow = DataTables("领料清单").AddNew
ndr3("编号") = e.DataRow("编号")
ndr3("预算编号") = e.DataRow("预算编号")
ndr3("生产令号") = e.DataRow("生产令号")
ndr3("项目名称") = e.DataRow("项目名称")
ndr3("物资说明") = e.DataRow("物资说明")
ndr3("名称") = e.DataRow("物资名称")
ndr3("规格") = e.DataRow("规格")
ndr3("材质") = e.DataRow("材质")
ndr3("领料日期") = Date.today
End If
End If
"领料情况_预领余额"勾选后，自动生成没问题，
但是取消"领料情况_预领余额"勾选后，会把之前“分机组领料”和“不分机组领料”所生成的领料清单一并删除，
怎么弄？
加好友 
发短信
Post By：2018/5/31 18:05:00 [只看该作者]
