有点蓝老师 不得要领哦 还得麻烦详细指导一下??
方法1
第一步 先查找卷宗编号的所有入库明细的记录
Dim d As Row=Tables("状态变更").Current
Dim drs As List(Of DataRow)
drs = DataTables("入库明细").Select("[卷宗编号] = '" & d("编号") & "'","录入时间 DESC")
For Each dr As DataRow In drs
MessageBox.show(dr("卷宗名称"))
Next
Dim drs1 As List(Of DataRow)
drs1 = DataTables("款物明细").Select("[案件编号] = '" & d("编号") & "'","录入时间 DESC")
For Each dr1 As DataRow In drs1
MessageBox.show(dr1("款物名称"))
Next
Dim drs2 As List(Of DataRow)
drs2 = DataTables("扫码录入").Select("[卷宗编号] = '" & d("编号") & "'","录入时间 DESC")
For Each dr2 As DataRow In drs2
MessageBox.show(dr2("卷宗名称"))
Next
第二步 循环到扫码录入表中查找是否有为归还的状态
Dim d As Row=Tables("状态变更").Current
Dim dr As DataRow
dr = DataTables("入库明细").Find("[卷宗编号] = '" & d("编号") & "'","录入时间 DESC")
If dr IsNot Nothing Then '如果找到的话
MessageBox.show(dr("卷宗名称"))
End If
Dim dr1 As DataRow
dr1 = DataTables("款物明细").Find("[案件编号] = '" & d("编号") & "'","录入时间 DESC")
If dr1 IsNot Nothing Then '如果找到的话
MessageBox.show(dr1("款物名称"))
End If
Dim dr2 As DataRow
dr2 = DataTables("扫码录入").Find("[卷宗编号] = '" & d("编号") & "'","录入时间 DESC")
If dr2 IsNot Nothing Then '如果找到的话
MessageBox.show(dr2("卷宗名称"))
End If
Dim dr3 As DataRow
dr3 = DataTables("款物录入").Find("[案件编号] = '" & d("编号") & "'","录入时间 DESC")
If dr3 IsNot Nothing Then '如果找到的话
MessageBox.show(dr3("卷宗名称"))
End If
怎么实现上述代码融合在一起 达到我想要的效果呢？
还请有点蓝老师多多指导啊
[此贴子已经被作者于2017/10/30 21:53:31编辑过]
加好友 
发短信
Post By：2017/10/30 19:59:00 [显示全部帖子]
Post By：2017/10/30 22:42:00 [显示全部帖子]
此主题相关图片如下：11.png
