以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于新记录  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147898)
--  作者：scofields
--  发布时间：2020/3/26 20:52:00
--  关于新记录
老师，如何获取新增行信息，然后弹窗告知，可不可以不用open QQ的形式，因为数据库不是我的，我只想获取到他新增的记录，然后弹窗告诉我，现在我总要刷新后才能看到，经常漏掉信息。
--  作者：狐狸爸爸
--  发布时间：2020/3/27 9:22:00
--  
如果没有办法用OpenQQ，可以看看：

做个定时器，定时刷新，或者在用户一段事件不操作后执行，看看这里的示例二：
--  作者：scofields
--  发布时间：2020/3/27 16:02:00
--  
我最终用计划，因为我不需要去追载数据，但是貌似没用，总是弹窗“无法绑定由多个部分组成的标识符 "Date.today"。狐爸看看怎么修改？

Dim Val As Integer = DataTables("提货单").SQLCompute("Max(提货单号)","付款方式ID = 3 And 生效时间 <= Date.today-1")
Dim ID As Integer = DataTables("提货单").SQLCompute("Max(提货单号)","付款方式ID = 3 And 生效时间>= Date.today")
If ID > Val Then
PopMessage("新增一条记录,请查看")
End If
--  作者：有点蓝
--  发布时间：2020/3/27 16:14:00
--  
参考：http://www.foxtable.com/webhelp/topics/1284.htm


Dim Val As Integer = DataTables("提货单").SQLCompute("Max(提货单号)","付款方式ID = 3 And 生效时间 <= \'" & Date.today.adddaya(-1) & "\'")
--  作者：scofields
--  发布时间：2020/3/27 16:22:00
--  
这个问题解决了，但弹窗总是关闭不掉，这个可怎么解决？
--  作者：有点蓝
--  发布时间：2020/3/27 16:32:00
--  
去掉弹窗，把提示放到状态栏：http://www.foxtable.com/webhelp/topics/0639.htm
--  作者：scofields
--  发布时间：2020/3/27 16:39:00
--  
每天都有新增不少的记录，我想实现的效果是，我的弹窗关闭后，如果再有新增的记录再弹出来，这可有办法处理掉？
--  作者：有点蓝
--  发布时间：2020/3/27 16:47:00
--  
afteropenproject事件
vars("id") = DataTables("提货单").SQLCompute("Max(提货单号)")

然后计划管理
Dim dr as datarow = DataTables("提货单").SQLFind("提货单号 >" & vars("id"))
if dr isnot nothing then
vars("id") =  dr(“提货单号”)
PopMessage("新增一条记录,请查看")
end if