| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 功能求助 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143378) |
| -- 作者：outcat -- 发布时间：2019/11/22 11:37:00 -- 功能求助 我现在想实现一个这样的功能怎么做 我要在每天的固定时间内，系统自动生成日报表数据，比如 23:59分 的时候自动的向 日报表这张表中自动的添加数据，设计成手动吧，是因为有时候操作员不在或者忘记了点 生成日报数据。 首先这个固定时间应该在哪块设置，怎么设置，这块功能实现的相关教程在哪块呢 |
| -- 作者：狐狸爸爸 -- 发布时间：2019/11/22 11:51:00 -- 参考： Static last As Date If Date.now.Hour > 23 AndAlso Date.now.Minute >= 58 AndAlso(Date.now - Last).TotalHours > 23 Then last = Date.now \'记录执行时间,用于比较 这里是需要定期执行的代码 End If |
| -- 作者：outcat -- 发布时间：2019/11/22 20:01:00 -- Static last As Date If Date.now.Hour > 19 AndAlso Date.now.Minute >= 55 AndAlso(Date.now - Last).TotalHours > 19 Then last = Date.now \'记录执行时间,用于比较 \'这里是需要定期执行的代码 Tables("日报表").AddNew Dim d As Date d = Date.today Tables("日报表").Current("操作员")=_UserName Tables("日报表").Current("日期") = d Tables("日报表").Current("日常支出") = DataTables("日常费用支出总表").Compute("sum(总金额)","日期 = \'#" & d & "#\'") Tables("日报表").Current("其它收入") = DataTables("其它收入总表").Compute("sum(总金额)","日期 = \'#" & d & "#\'") Tables("日报表").Current("厂家订货") = DataTables("供应商订货总表").Compute("sum(打款总额)","日期 = \'#" & d & "#\'") Tables("日报表").Current("客户订金") = DataTables("客户订货总表").Compute("sum(预付订金)","日期 = \'#" & d & "#\'") Tables("日报表").Current("营业收入") = DataTables("客户订货总表").Compute("sum(实付金额)","日期 = \'#" & d & "#\'") Tables("日报表").Current("采购支出") = DataTables("采购总表").Compute("sum(总金额)","日期 = \'#" & d & "#\'") Tables("日报表").Current("总支出") = DataTables("日常费用支出总表").Compute("sum(总金额)","日期 = \'#" & d & "#\'")+ DataTables("日常费用支出总表").Compute("sum(总金额)","日期 = \'#" & d & "#\'")+ DataTables("供应商订货总表").Compute("sum(打款总额)","日期 = \'#" & d & "#\'") Tables("日报表").Current("总收入") = DataTables("其它收入总表").Compute("sum(总金额)","日期 = \'#" & d & "#\'")+ DataTables("客户订货总表").Compute("sum(预付订金)","日期 = \'#" & d & "#\'")+ DataTables("客户订货总表").Compute("sum(实付金额)","日期 = \'#" & d & "#\'") Tables("日报表").Current.save DataTables("日报表").save End If 老师，请帮忙看一下，我设置的这个自动往表里添加数据的计划怎么执行不了
|
| -- 作者：有点蓝 -- 发布时间：2019/11/22 20:26:00 -- 计划管理启动了吗？ 上面的代码操作的都是"日报表"的当前行，其他行数据不会变 .Compute("sum(总金额)","日期 = \'#" & d & "#\'")，日期条件单引号和#号只能使用一种：http://www.foxtable.com/webhelp/topics/2343.htm |
| -- 作者：有点蓝 -- 发布时间：2019/11/22 20:27:00 -- 如果要做统计，建议参考这个：http://www.foxtable.com/webhelp/topics/1472.htm 完全没有必要不停的统计，效率非常低
|
| -- 作者：outcat -- 发布时间：2019/11/22 21:07:00 -- 老师，我的这个计划时间间隔是 24小时执行一次 时间间隔设的是86400000，也就是在每天的那个固定的时间只要程序启动，后台自动生成一条记录，上面的代码是哪块除了问题，关于这个 当前行，如果是间隔这么长时间，用当前行实现可以吧 |
| -- 作者：有点蓝 -- 发布时间：2019/11/22 21:50:00 -- 时间间隔设置为4分钟一次，如果是 24小时执行一次是永远都执行不了的 |