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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 定时执行代码

共有4185人关注过本帖树形打印复制链接主题：定时执行代码

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2707 积分：18062 威望：0 精华：0 注册：2013/4/9 10:41:00

定时执行代码 发帖心情

Post By：2020/2/27 17:52:00 [只看该作者]

老师，如果设置某个时候执行代码帮助应该学习哪一章呀，谢谢老师。

比如在项目打开的情况下，然后设置星期一到星期五的早上9点执行代码A，

cd_tdh

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

加好友

发短信

等级：狐精帖子：3223 积分：21401 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2020/2/27 20:17:00 [只看该作者]

计划管理把吧

cd_tdh

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

加好友

发短信

等级：狐精帖子：3223 积分：21401 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2020/2/27 20:18:00 [只看该作者]

用代码判断系统时间，到时候就执行就行

有点蓝

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

加好友

发短信

等级：超级版主帖子：111407 积分：567105 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/28 9:18:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0657.htm

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2707 积分：18062 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2020/2/28 12:32:00 [只看该作者]

谢谢老师，那个可以北京时间或者电脑时间未基础吗？比如设置每周的星期一和星期二的某个点啊执行。不是这种计时执行，感谢感谢

有点蓝

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

加好友

发短信

等级：超级版主帖子：111407 积分：567105 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/28 14:48:00 [只看该作者]

在计划管理里设置间隔为1小时，有多少毫秒自己转换一下。然后判断当前日期时间是不是星期一和星期二的某个点

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2707 积分：18062 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2020/2/28 14:54:00 [只看该作者]

好的谢谢老师，这个还可以想屏保那样吗？已经鼠标没有动开始计时。

有点蓝

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

加好友

发短信

等级：超级版主帖子：111407 积分：567105 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/28 15:19:00 [只看该作者]

结合这里的用法：http://www.foxtable.com/webhelp/topics/0665.htm

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2707 积分：18062 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2020/2/28 17:42:00 [只看该作者]

老师，有办法在SystemIdle里面执行红色的代码吗？

If LastInputTickCount > 3000 Then

    If forms("计划表窗口").Opened=False Then
        forms("计划表窗口").Open
    End If
    forms("计划表窗口").visible=True
    'Forms("采订状态窗口").Controls("Panel02").Visible = False

    BaseMainForm.Visible = False
    'Forms("采订状态窗口").Controls("Panel1").Visible = False
End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：111407 积分：567105 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/28 18:03:00 [只看该作者]

If LastInputTickCount > 3000 Then

    If forms("计划表窗口").Opened=False Then
        forms("计划表窗口").Open
    End If
    forms("计划表窗口").visible=True

if forms("采订状态窗口").Opened
    'Forms("采订状态窗口").Controls("Panel02").Visible = False

    BaseMainForm.Visible = False
    'Forms("采订状态窗口").Controls("Panel1").Visible = False

end if
End If

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

总数 16 1 2 下一页

主题：定时执行代码