老师，我下面是一段关于生成当天营业数据的代码，但怕有时候商家忘记交班，想在每天下班前自动生成营业数据，比如 18点01执行这个操作，计划管理里，该怎样处理这段代码嘛
Dim d As WinForm.Label =Forms("交班").Controls("今日日期")
d.text = Date.Today
Dim jby As WinForm.Label =Forms("交班").Controls("交班员")
jby.text = _UserName
Dim lsxssl As WinForm.Label =Forms("交班").Controls("商家订货数量")
Dim lsxsje As WinForm.Label =Forms("交班").Controls("商家订货金额")
Dim lsxsds As WinForm.Label =Forms("交班").Controls("商家订货单数")
lsxssl.text = DataTables("供应商订货总表").Compute("sum(订货数量)","日期 = '#" & d.text & "#'")
lsxsje.text = DataTables("供应商订货总表").Compute("sum(订货金额)","日期 = '#" & d.text & "#'")
lsxsds.text = DataTables("供应商订货总表").Compute("count(订货单号)","日期 = '#" & d.text & "#'")
Dim cldhsl As WinForm.Label =Forms("交班").Controls("供应商回货数量")
Dim cldhje As WinForm.Label =Forms("交班").Controls("供应商回货金额")
Dim cldhds As WinForm.Label =Forms("交班").Controls("供应商回货单数")
cldhsl.text =DataTables("供应商回货总表").Compute("sum(回货数量)","日期 = '#" & d.text & "#'")
cldhje.text= DataTables("供应商回货总表").Compute("sum(回货金额)","日期 = '#" & d.text & "#'")
cldhds.text = DataTables("供应商回货总表").Compute("count(回货单号)","日期 = '#" & d.text & "#'")
Dim khdhsl As WinForm.Label =Forms("交班").Controls("客户订货数量")
Dim khdhje As WinForm.Label =Forms("交班").Controls("客户订货金额")
Dim khdhdj As WinForm.Label =Forms("交班").Controls("客户预付订金")
Dim khdhds As WinForm.Label =Forms("交班").Controls("客户订货单数")
khdhsl.text = DataTables("客户订货总表").Compute("sum(总数量)","日期 = '#" & d.text & "#'")
khdhdj.text = DataTables("客户订货总表").Compute("sum(预付订金)","日期 = '#" & d.text & "#'")
khdhje.text = DataTables("客户订货总表").Compute("sum(应付金额)","日期 = '#" & d.text & "#'")
khdhds.text = DataTables("客户订货总表").Compute("count(订货单号)","日期 = '#" & d.text & "#'")
Dim sjshsl As WinForm.Label =Forms("交班").Controls("商家送货数量")
Dim sjshds As WinForm.Label =Forms("交班").Controls("商家送货单数")
sjshsl.text =DataTables("商场送货总表").Compute("sum(送货数量)","日期 = '#" & d.text & "#'")
sjshds.text = DataTables("商场送货总表").Compute("count(送货单号)","日期 = '#" & d.text & "#'")
Dim rr As DataRow
rr = DataTables("营业综合报表").sqlFind("日期 = '" & d.text & "'")
If rr IsNot Nothing Then
DataTables("营业综合报表").SQLDeleteFor("日期 = '" & d.text & "'")
Dim r As Row = Tables("营业综合报表").AddNew
r("商家订货数量") = lsxssl.text
r("商家订货金额") = lsxsje.text
r("商家订货单数") = lsxsds.text
r("供应商回货数量") = cldhsl.text
r("供应商回货金额") = cldhje.text
r("供应商回货单数") = cldhds.text
r("客户订货数量") = khdhsl.text
r("客户订货金额") = khdhje.text
r("客户订货单数") = khdhds.text
r("客户预付订金") = khdhdj.text
r("商家送货数量") = sjshsl.text
r("商家送货单数") = sjshds.text
r("交班员") = jby.text
r("日期") = d.text
DataTables("营业综合报表").save
End If
加好友 
发短信
Post By：2020/9/20 5:05:00 [只看该作者]
