以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  系统日期问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133637)
--  作者：jick0526
--  发布时间：2019/4/17 15:22:00
--  系统日期问题
老师，请问下，如果电脑系统日期时间有被人修改了，那么表A的A列会自动输入修改前的日期时间，B列会自动自动输入修改后的日期时间，C列会自动输入登入的用户用，这样的代码要怎么写，谢谢！
--  作者：有点甜
--  发布时间：2019/4/17 16:12:00
--  

需要做一个定时器，定时获取系统日期 http://www.foxtable.com/webhelp/scr/0657.htm

 

编写代码，如

 

static pd As Date = Date.now
Dim d As Date = Date.Now
If pd > d Then \'如果之前的时间大于之后的时间
    msgbox("修改了")
    msgbox(pd)
    msgbox(d)
End If
pd = d
--  作者：jick0526
--  发布时间：2019/4/18 18:56:00
--  
老师，我不是要弹出提示框，我是要自动输入时间，比如说现在是10：00点，员工这时把时间改为10:30分，那么A列就会自动输入10:00，B列会自动输入10:30，C列会自动输入用户登入名。
--  作者：有点甜
--  发布时间：2019/4/18 19:19:00
--  
以下是引用jick0526在2019/4/18 18:56:00的发言：
老师，我不是要弹出提示框，我是要自动输入时间，比如说现在是10：00点，员工这时把时间改为10:30分，那么A列就会自动输入10:00，B列会自动输入10:30，C列会自动输入用户登入名。

 

增加行不会写？addnew

 

赋值不会写？ r("第一列") = pd
--  作者：jick0526
--  发布时间：2019/4/18 20:10:00
--  
是的，老师，不好意思确实不会写，麻烦老师帮我写下，谢谢！
--  作者：有点甜
--  发布时间：2019/4/19 10:28:00
--  
static pd As Date = Date.now
Dim d As Date = Date.Now
If pd > d Then \'如果之前的时间大于之后的时间
    msgbox("修改了")
    msgbox(pd)
    msgbox(d)
    Dim nr = Tables("表a").addnew
    nr("第一列") = pd
    nr("第二列") = d
End If
pd = d
--  作者：jick0526
--  发布时间：2019/4/21 17:59:00
--  
老师，这段代码能帮我改下吗?我不想要跳出提示框，只有在系统时间变更时，第一列和第二列会自动输入修改前和修改后的时间，变更完后就不会每隔多少秒在输入或跳出提示框，直到下一次系统时间变更时才会再次自动输入。
static pd As Date = Date.now
Dim d As Date = Date.Now
If pd > d Then \'如果之前的时间大于之后的时间
    msgbox("修改了")
    msgbox(pd)
    msgbox(d)
    Dim nr = Tables("表a").addnew
    nr("第一列") = pd
    nr("第二列") = d
End If
pd = d
--  作者：有点色
--  发布时间：2019/4/22 12:01:00
--  

呃...删除代码

 

   msgbox("修改了")
    msgbox(pd)
    msgbox(d)