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
老师，请帮忙看一下，我设置的这个自动往表里添加数据的计划怎么执行不了
加好友 
发短信
Post By：2019/11/22 11:37:00 [显示全部帖子]
