以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]计时器  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117443)

--  作者:狐说八道
--  发布时间:2018/4/12 15:41:00
--  [求助]计时器
老师,我在窗口开了计时器,为了做个提醒功能。代码如下:
Static old_date As Date 
Dim new_date As Date = 。。。。(后台获取)
If new_date > old_date Then
    PopMessage("有新订单了,请及时处理.")
    old_date = new_date
End If

问题是:重新打开窗口后,old_date值也重新开始了,如果是定义全局变量,重新打开项目后,也一样重新开始。
请问:如何保存old_date这个值在计时器每次执行时都是old_date = new_date这个最新值。(不要建表存储)

--  作者:有点甜
--  发布时间:2018/4/12 15:42:00
--  

AfterOpenProject

 

vars("old_date") = Date.Now

 

计时器


Dim new_date As Date = ....(后台获取)
If new_date > vars("old_date") Then
    PopMessage("有新订单了,请及时处理.")
    vars("old_date") = new_date
End If

[此贴子已经被作者于2018/4/12 15:42:11编辑过]

--  作者:有点甜
--  发布时间:2018/4/12 15:44:00
--  

2楼是重新打开项目修改的;如果要一直记录,请用saveconfigvalue

 

http://www.foxtable.com/webhelp/scr/1544.htm

 

 

 


--  作者:狐说八道
--  发布时间:2018/4/12 15:49:00
--  
1、AfterOpenProject

      vars("old_date") = Date.Now

      vars("old_date") = 上次提醒之后的new_date才对啊,怎么是Date.Now??

2、saveconfigvalue不是升级之后就清零了??
[此贴子已经被作者于2018/4/12 16:07:01编辑过]

--  作者:有点甜
--  发布时间:2018/4/12 16:36:00
--  
回复4楼,如果你这样说,那只能把数据保存在txt文件(或者表格)里面了。没有其它方式。
--  作者:狐说八道
--  发布时间:2018/4/13 11:57:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:tim截图20180413115456.png
图片点击可在新窗口打开查看


明明两个时间是相等的,为啥也会执行呢??

我改成 If old_date = new_date Then 却不执行??求解


--  作者:有点甜
--  发布时间:2018/4/13 12:20:00
--  

时间,有毫秒数的,比如 2018-04-13 12:19:27 234

 

你可以这样比较,如

 

If format(old_date, \'yyyyMMddHHmmss\') = format(new_date, \'yyyyMMddHHmmss\') Then


--  作者:狐说八道
--  发布时间:2018/4/13 14:09:00
--  
谢谢啦