Foxtable(狐表)用户栏目专家坐堂 → 计划不能执行


  共有2274人关注过本帖树形打印复制链接

主题:计划不能执行

帅哥哟,离线,有人找我吗?
15014737345
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:406 威望:0 精华:0 注册:2017/12/21 16:21:00
计划不能执行  发帖心情 Post By:2018/9/18 17:12:00 [只看该作者]

甜老师帮我看看什么问题?计划不能执行,只执行了一次。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:xl (1).foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/18 18:03:00 [只看该作者]

我这样测试没问题,我把间隔调成10秒测试没问题。

 

static count As Integer = 1
Dim cando As Boolean
If Date.Now.Hour >= 10 AndAlso Date.Now.Hour <= 22 Then
    If count = 2 Then
        count = 1
        cando = True
    Else
        count += 1
    End If
ElseIf  Date.Now.Hour > 22 OrElse Date.Now.Hour <= 2 Then
    cando = True
End If
If cando Then
    msgbox(111)
End If


 回到顶部
帅哥哟,离线,有人找我吗?
15014737345
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:406 威望:0 精华:0 注册:2017/12/21 16:21:00
  发帖心情 Post By:2018/9/18 18:13:00 [只看该作者]

是不是只执行了一次,然后就不执行了?

 回到顶部
帅哥哟,离线,有人找我吗?
15014737345
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:406 威望:0 精华:0 注册:2017/12/21 16:21:00
  发帖心情 Post By:2018/9/18 18:17:00 [只看该作者]

甜老师帮测试一下项目,我试了几次都不行,是不是其它部分代码的问题?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/18 18:59:00 [只看该作者]

以下是引用15014737345在2018/9/18 18:13:00的发言:
是不是只执行了一次,然后就不执行了?

 

请认真测试执行3楼代码。


 回到顶部