系统日期问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 系统日期问题

共有2569人关注过本帖树形打印复制链接主题：系统日期问题

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

下一主题 >> << 上一主题

主题：系统日期问题