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("补充完成") <> False Then
pr("项目完结") = True
End If
Next
End If
Case "补充情况_第1次","补充情况_第2次","补充情况_第3次","补充情况_第4次"
If "补充情况_第1次"+"补充情况_第2次"+"补充情况_第3次"+"补充情况_第4次" >= "缺失材料_重量" Then
e.DataRow("补充完成") = True
End If
End Select
第一段代码在关联表有多行，我只点击了一行的补充完成单元格，主表的项目完结就变成选中状态了
第二段4个单元格值大于前面重量单元格值了“”补充完成“”也没有变为选中状态
加好友 
发短信
Post By：2016/11/30 17:30:00 [显示全部帖子]
