主题：【遍历判断】当前【状态变更】表中的编号，要在【款物明细】【入库明细】中遍历序号后再在使用记录中查找如果不等于归还的，就进行提醒并赋值。怎么进行判断呢？

Dim d  As Row=Tables("状态变更").Current
For Each dr As DataRow In DataTables("款物明细").Select("案件编号='" & d("编号") & "'")
    Dim dr2 As DataRow = DataTables("使用记录").Find("编号='" & d("编号") & "' and 序号='" & dr("款物序号") & "'","录入时间 DESC")
    If dr2 IsNot Nothing AndAlso dr2("登记状态") <> "归还"
        msgbox(dr2("编号") & "【" & dr2("序号") & "】款物未归还")
        Return
    End If
Next
For Each dr1 As DataRow In DataTables("入库明细").Select("卷宗编号='" & d("编号") & "'")
    Dim dr21 As DataRow = DataTables("使用记录").Find("编号='" & d("编号") & "' and 序号='" & dr1("分册编号") & "'","录入时间 DESC")
    If dr21 IsNot Nothing AndAlso dr21("登记状态") <> "归还"
        msgbox(dr21("编号") & "【" & dr21("序号") & "】卷宗未归还")
        Return
    End If
Next

d("办理状态")="已办结"
d("办结状态")="已办结"
d("办结人")=d("办理人")
d("办结时间")=Date.now

有点甜老师 现在可以逐步提醒了  但是觉得还是不怎么方便 因为遍历是独立的 执行一次就执行了 当款物和卷宗都有未归还情况时 只提醒款物未归还  有没有办法时间两个提示都进行 也就是款物与卷宗都提醒并且体现在一个窗体上

Dim d  As Row=Tables("状态变更").Current
Dim flag As Boolean = True
For Each dr As DataRow In DataTables("款物明细").Select("案件编号='" & d("编号") & "'")
    Dim dr2 As DataRow = DataTables("使用记录").Find("编号='" & d("编号") & "' and 序号='" & dr("款物序号") & "'","录入时间 DESC")
    If dr2 IsNot Nothing AndAlso dr2("登记状态") <> "归还"
        msgbox(dr2("编号") & "【" & dr2("序号") & "】款物未归还")
        flag = False
    End If
Next
For Each dr1 As DataRow In DataTables("入库明细").Select("卷宗编号='" & d("编号") & "'")
    Dim dr21 As DataRow = DataTables("使用记录").Find("编号='" & d("编号") & "' and 序号='" & dr1("分册编号") & "'","录入时间 DESC")
    If dr21 IsNot Nothing AndAlso dr21("登记状态") <> "归还"
        msgbox(dr21("编号") & "【" & dr21("序号") & "】卷宗未归还")
        flag = false
    End If
Next
if flag then
    d("办理状态")="已办结"
    d("办结状态")="已办结"
    d("办结人")=d("办理人")
    d("办结时间")=Date.now
end if