Case "领料完成" If e.DataCol.Name = "领料完成" Then If e.DataRow("领料完成")="是" Dim vrs As List(Of DataRow) vrs = DataTables("合同明细表").Select("[合同编号]='" & e.DataRow("合同编号") & "'") Dim flag As Boolean = True For Each vr As DataRow In vrs If vr("领料完成")="否" Then flag = False Exit For End If Next Dim dr2 As DataRow = DataTables("合同一览表").Find("合同编号='" & vr("合同编号") & "'") If flag Then dr2("领料完毕")="是" Else dr2("领料完毕")="否" endif End If End If End Select
|