【到时间提醒】怎么实现数据每天下午17点30时进行提醒尚未归还的数据部分！
此主题相关图片如下：微信图片_20171119114057.png
图中5-1只有借出 没有归还部分要求每天17点30分时，自动将如5-1这个只有借出没有归还的所有卷宗 进行提醒
谢谢！
初步采用如下代码实现指定编号及分册编号与登记状态 在指定时间的判断，但是怎么实现查询所有卷宗编号下面的所有分册编号 登记状态等于借出或归还的数据呢？然后进行判断提醒是否归还？
Dim d As Date = Date.now
If d.hour=12 And d.Minute=14 Then
Output.Show(d.Hour)
Output.Show(d.Minute)
Dim cnt1 As Integer
Dim cmd1 As New SQLCommand
cmd1.C
cmd1.CommandText = "Select Count(登记状态) F rom {扫码录入} Where 卷宗编号='JZ-201711-0001'and 分册编号='5--1' and 登记状态= '借出'"
cnt1 = cmd1.ExecuteScalar()
Output.Show(cnt1)
Dim cnt11 As Integer
Dim cmd11 As New SQLCommand
cmd11.C
cmd11.CommandText = "Select Count(登记状态) F rom {扫码录入} Where 卷宗编号='JZ-201711-0001'and 分册编号='5--1' and 登记状态= '归还'"
cnt11 = cmd11.ExecuteScalar()
Output.Show(cnt11)
If cnt1=cnt11 Then
MessageBox.Show("已归还")
Else
MessageBox.Show("未归还")
End If
Else
MessageBox.Show("未到指定时间")
End If
[此贴子已经被作者于2017/11/19 12:17:24编辑过]
加好友 
发短信
Post By：2017/11/19 11:51:00 [显示全部帖子]
Post By：2017/11/19 20:50:00 [显示全部帖子]
