1、两个独立的遍历 怎么进行嵌套呢？ 当款物录入中的全部登记状态为归还时，才能对应案件编号=卷宗编号的数据 更改办理状态为办结状态2、怎么实现代码执行一次，即可将当前所有状态变更表的数据都进行一次执行呢？效果要求按照1来进行！
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("款物序号") & "未归还")
d("办理状态")="办理中"
e.Cancel = True
Return
Else
d("办理状态")="已办结"
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("分册编号") & "未归还")
d("办理状态")="办理中"
e.Cancel = True
Return
Else
d("办理状态")="已办结"
End If
Next
下面是初步操作的结果 有没有更好的简洁写法呢？
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("款物序号") & "未归还")
d("办理状态")="办理中"
e.Cancel = True
Return
Else
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("分册编号") & "未归还")
d("办理状态")="办理中"
e.Cancel = True
Return
Else
d("办理状态")="已办结"
End If
Next
End If
Next
[此贴子已经被作者于2017/11/11 12:00:55编辑过]
加好友 
发短信
Post By：2017/11/11 11:56:00 [只看该作者]
