【求助逻辑】当查找到登记状态不等于归还的记录后，提示某册没有归还，并取消操作。反之就新增一条数据，但是现在是不管登记状态是否等于归还，都会新增一条数据？麻烦修正指导 谢谢！
下列代码是在按钮事件中
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("分册编号") & "未归还")
e.Cancel = True
Else
Tables("办理状态_状态变更").AddNew()
Tables("办理状态_状态变更").Current("案件编号")=d("案件编号")
Tables("办理状态_状态变更").Current("名称")=d("名称")
Tables("办理状态_状态变更").Current("操作人")=d("操作人")
Tables("办理状态_状态变更").Current("变更类别")=d("变更类别")
Tables("办理状态_状态变更").Current("变更时间")=Date.Now
End If
Next
加好友 
发短信
Post By：2017/10/31 15:43:00 [只看该作者]
