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

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