Foxtable(狐表) → 用户栏目 → 专家坐堂 → 计划管理的首次执行


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

主题：计划管理的首次执行
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/7/22 9:25:00 [显示全部帖子]

首次执行时间是在计划管理启动一小时后执行，如果计划管理是在项目启动后马上启动，其实就等于是项目启动一小时后执行

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/7/22 9:52:00 [显示全部帖子]

把代码放到函数里，在计划管理中调用这个函数。在AfterOpenProject里也调用这个函数一次

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/7/22 10:16:00 [显示全部帖子]

增加一个表格记录执行情况，里面有一列【最后执行时间】，比如计划管理执行一次就更新一下【最后执行时间】。然后每次计划管理代码里先判断一下【最后执行时间】如果是当天就不再执行

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/7/22 10:27:00 [显示全部帖子]

建表不会？增加列不会？然后给表格某一行某一列赋值也不会？取表格某一行某一列日期值和当前时间比较也不会？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/7/22 13:30:00 [显示全部帖子]

要根据怎么条件查询表格数据？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/7/22 14:47:00 [显示全部帖子]

按什么条件查？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/7/22 15:00:00 [显示全部帖子]

dr1 = .Find("", "代码执行时间 Desc") 

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/7/22 20:15:00 [显示全部帖子]

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

Dim D As Date = dr1("代码执行时间")
For i as integer = 0 to 2  
msgbox(d.adddays(i))
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/7/23 10:53:00 [显示全部帖子]

什么乱七八糟的！到"任务表"建一个日期列，名称"代码执行时间"

        For Each dr As DataRow In DataTables("任务表").Select("事项 is not null")
if dr("代码执行时间") = date.today Then Continue For
            If dr.IsNull("年") = False Then
                If dr("年") <> d3.Year Then Continue For
            End If
            If dr.IsNull("月") = False Then
                If dr("月") <> d3.Month Then Continue For
            End If
            If dr.IsNull("周") = False Then
                If dr("周") <> d3.DayOfWeek Then Continue For
            End If 
            If dr.IsNull("日") = False Then
                If dr("日") <> d3.Day Then Continue For
            End If
            Dim r As Row = Tables("项目").AddNew
            r("承接日期") = d3
            r("类别") = dr("类别")
            r("事项") = dr("事项")
    dr("代码执行时间") = date.today
        Next  
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询