【到时间提醒】怎么实现数据每天下午17点30时进行提醒尚未归还的数据部分！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

【到时间提醒】怎么实现数据每天下午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编辑过]

执行sql语句

Select 卷宗编号,分册编号, sum(状态) from ( Select 卷宗编号,分册编号, (Case when 登记状态= '借出' then -1 else 1 end) as 状态 From {扫码录入}) as b group by 卷宗编号,分册编号

运行出错这个组合语句我不大熟悉还得麻烦老师多多指导一下或者看看还有没有其他变通实现的办法哦

此主题相关图片如下：11.png

如果是access数据库，这样写

Select 卷宗编号,分册编号, sum(iif(登记状态= '借出', -1, 1)) as 状态 From {扫码录入} as b group by 卷宗编号,分册编号

或者

Select 卷宗编号,分册编号, sum(状态) from ( Select 卷宗编号,分册编号, iif(登记状态= '借出', -1, 1) as 状态 From {扫码录入}) as b group by 卷宗编号,分册编号

[此贴子已经被作者于2017/11/19 20:34:39编辑过]

现在可以查询到数据了

但是我还是不理解这个和我的定时提醒有什么关系呢？

此主题相关图片如下：22.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:瓮安县院卷宗管理系统1119（整体板）.zip

附上项目。麻烦有点甜老师及各位老师多多指导下怎么实现当时间等于17:30的时候将当前所有借出但是没有归还的全部数据进行一次提醒弹窗或者文字提醒谢谢！

[此贴子已经被作者于2017/11/19 20:32:53编辑过]

执行这句代码

Select 卷宗编号,分册编号, sum(iif(登记状态= '借出', -1, 1)) as 状态 From {扫码录入} as b group by 卷宗编号,分册编号

如果是借出，没还，那就是-1或者-xxx值，如果是借出又归还了，就是0值

那为什么有的等于1呢？

以下是引用李孝春在2017/11/19 20:50:00的发言：
那为什么有的等于1呢？

状态为空或者归还，都赋值为1。

你借出一次，归还一次，相加就是0；你借出一次，归还两次，相加就是1

主题：【到时间提醒】怎么实现数据每天下午17点30时进行提醒尚未归还的数据部分！