Foxtable(狐表) → 用户栏目 → 专家坐堂 → 为什么计划不会执行 ？


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

主题：为什么计划不会执行 ？
帅哥哟，离线，有人找我吗？
YDS
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：632 积分：3619 威望：0 精华：0 注册：2011/5/21 18:05:00 		为什么计划不会执行 ？  发帖心情 Post By：2018/9/13 8:22:00 [显示全部帖子]

计划代码如下   计划名称：upyc  间隔时间：30000
If Date.Today.DayOfWeek > 0 AndAlso Format(Date.now, "HHmm") >= 1130 AndAlso Format(Date.now, "HHmm") <= 1300 Then
    MyTimers("upyc").Enabled = False
    DataTables("pos").load()
    Dim d As Date = Date.Today
    Dim unn As String = Functions.Execute("ycun",d,"unn")
    Dim dr As DataRow = DataTables("yc").find("date = '" & d & "'")
    If dr IsNot Nothing Then
        dr("n_y") = unn
        dr.save
    End If
    MyTimers("upyc").Enabled = True
End If

为什么有时候不执行   必须重启一下才行
 回到顶部
帅哥哟，离线，有人找我吗？
YDS
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：632 积分：3619 威望：0 精华：0 注册：2011/5/21 18:05:00 		  发帖心情 Post By：2018/9/13 8:25:00 [显示全部帖子]

我还在系统启动后加了个MyTimers("upyc").Enabled = True，计划管理已经设置启动和不允许暂停

 回到顶部
帅哥哟，离线，有人找我吗？
YDS
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：632 积分：3619 威望：0 精华：0 注册：2011/5/21 18:05:00 		  发帖心情 Post By：2018/9/13 12:32:00 [显示全部帖子]

不是周末   在11:30到13:00之间   计划不会自动执行    必须重启项目后这个计划才会执行

 回到顶部
帅哥哟，离线，有人找我吗？
YDS
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：632 积分：3619 威望：0 精华：0 注册：2011/5/21 18:05:00 		  发帖心情 Post By：2018/9/13 13:28:00 [显示全部帖子]

额  这个不用测试啊   他除了不会自动执行  没有别的问题   程序编译后在服务器上一直开着    但是时间一长就不会自动执行了   比如今天可以执行  每天到1130的时候就不会执行了   时间间隔我设置的是30秒啊

 回到顶部
帅哥哟，离线，有人找我吗？
YDS
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：632 积分：3619 威望：0 精华：0 注册：2011/5/21 18:05:00 		  发帖心情 Post By：2018/9/13 13:32:00 [显示全部帖子]

可能我表述的有问题吧    不是不会执行    是时间长了就不会自动执行了   比如我现在设置的1130到1300点之间 30秒 DataTables("pos").load() 而且pos只加载当天的数据
 但是第二天来了来了以后   pos表里还是昨天的数据
 回到顶部
帅哥哟，离线，有人找我吗？
YDS
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：632 积分：3619 威望：0 精华：0 注册：2011/5/21 18:05:00 		  发帖心情 Post By：2018/9/13 16:12:00 [显示全部帖子]

我把这个全部代码贴出来吧     不是休眠   晚上的报餐提醒和上午的余额不足提醒都是正常的


图片点击可在新窗口打开查看此主题相关图片如下：tim截图20180913161127.jpg
图片点击可在新窗口打开查看


If Date.Today.DayOfWeek > 0 AndAlso Format(Date.now, "HHmm") >= Functions.Execute("Get","设置",2).split("-")(0) AndAlso Format(Date.now, "HHmm") <= Functions.Execute ("Get","设置",2).split("-")(1) Then
    MyTimers("upyc").Enabled = False
    DataTables("pos").load()
    Dim d As Date = Date.Today.AddDays(0)
    Dim unn As String = Functions.Execute("ycun",d,"unn")
    Dim dr As DataRow = DataTables("yc").find("date = '" & d & "'")
    If dr IsNot Nothing Then
        dr("n_y") = unn
        dr.save
    End If
    MyTimers("upyc").Enabled = True
End If
If Date.Today.DayOfWeek > 0 AndAlso Format(Date.now, "HHmm") >= Functions.Execute("Get","设置",3).split("-")(0) AndAlso Format(Date.now, "HHmm") <=  Functions.Execute("Get","设置",3).split("-")(1) Then
    MyTimers("upyc").Enabled = False
    DataTables("pos").load()
    Dim d As Date = Date.Today.AddDays(0)
    Dim une As String = Functions.Execute("ycun",d,"une")
    Dim dr As DataRow = DataTables("yc").find("date = '" & d & "'")
    If dr IsNot Nothing Then
        dr("e_y") = une
        dr.save
    End If
    MyTimers("upyc").Enabled = True
End If
Static dm As Date
If dm <> Date.today AndAlso Date.today.AddDays(1).DayOfWeek > 0 AndAlso Format(Date.now, "HHmm") >= Functions.Execute("Get","设置",12) AndAlso Format(Date.now, "HHmm") <= Functions.Execute("Get","设置",12) + 5 Then
    MyTimers("upyc").Enabled = False
    dm = Date.Today
    Dim drs As List(Of DataRow) = DataTables("Users").Select("tx = 1 and dc = 1")
    For Each dr As DataRow In drs
        If dr("userid") > "" And dr("name") > "" Then
            Dim dr1 As DataRow = DataTables("yc").SQLFind("date = '" & Date.today.AddDays(1) & "' and (n_b like '%" & dr("name") & "%' or e_b like '%" & dr("name") & "%')")
            If dr1 Is Nothing Then
                Functions.Execute("sendmsg","textcard",dr("userid"),"","报餐通知",Date.now & vbcrlf & "根据公司相关规定,在食堂用餐员工需要提前一天报餐,您" & Date.today.adddays(1) & "还没有报餐,如需用餐请尽快报餐,以便厨师根据报餐人数安排食材采购等相关事宜!","http://m.xoar.me:81/index.htm","详 情")
            End If
        End If
    Next
    MyTimers("upyc").Enabled = False
End If
Static dn As Date
If dn <> Date.today AndAlso Date.Today.DayOfWeek > 0 AndAlso Format(Date.now, "HHmm") >= Functions.Execute("Get","设置",14) AndAlso Format(Date.now, "HHmm") <= Functions.Execute("Get","设置",14) + 5 Then
    MyTimers("upyc").Enabled = False
    dn = Date.Today
    Dim drs As List(Of DataRow) = DataTables("Users").Select("dc = 1")
    For Each dr As DataRow In drs
        If dr("userid") > "" And dr("name") > "" Then
            Dim dr1 As DataRow = DataTables("pos").SQLFind("user_name = '" & dr("name") & "'","pos_time Desc",0)
            If dr1 IsNot Nothing Then
                dr("ye") = dr1("balance")
                dr.save
                If dr("ye") > 0 AndAlso dr("ye") <= 30 Then
                    Functions.Execute("sendmsg","textcard",dr("userid"),"","余额不足",Date.now & vbcrlf & "您的餐卡余额仅剩" & dr("ye") & "元,为了不影响您的用餐,请您尽快充值!----卓尔航空后勤部","http://m.xoar.me:81/cx.htm","详 情")
                End If
            End If
        End If
    Next
    MyTimers("upyc").Enabled = False
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询