抄代码前先花时间理解一下代码，如果不理解就不要随便改
Select Case e.DataCol.Name
Case "补充完成"
Dim pr As DataRow = e.DataRow.GetParentRow("主表")
If pr IsNot Nothing Then
Dim crs As List(of DataRow) = pr.GetChildRows("材料缺失")
Dim cnt As Integer
For Each cr As DataRow In crs
If cr("补充完成") = True Then
cnt = cnt + 1
End If
Next
pr("项目完结") = (crs.Count = cnt)
End If
Case "补充情况_第1次","补充情况_第2次","补充情况_第3次","补充情况_第4次"
If e.DataRow("补充情况_第1次")+ e.DataRow("补充情况_第2次")+ e.DataRow("补充情况_第3次")+ e.DataRow("补充情况_第4次") >= e.DataRow("缺失材料_重量") Then
e.DataRow("补充完成") = True
End If
End Select
加好友 
发短信
Post By：2016/11/30 17:40:00 [显示全部帖子]
