主题：父子表的邏輯表達

For Each dr As DataRow In DataTables("主表").DataRows
    Dim trs As List(of DataRow) = DataTables("子表").Select("关联字段 =" & dr("_Identify"))
    If trs.count >0 Then
        Dim i As Integer =0
        Dim k As Integer =0
        For Each tr As DataRow In trs
            i =i +1
            If tr("是否结案") ="已结案"
                k =k+1
            End If
        Next
        If k =i Then
            dr("是否结案") ="ok结案"
        End If
    End If
Next

楼主:做一个按扭,把上面这段代码写进出,点该按扭后,系统会自动扫描主表中的每一行与其对应的子表,如子表中的每一行已结案,则其K就等于子表的总行数i,这样就可以根据k 与 i 的值是否相等来判断主表是否全部都已结案