16,717
社区成员
发帖
与我相关
我的任务
分享
Private Sub TimingRun_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles TimingRun.Elapsed
' 定时统计
If System.DateTime.Now.Hour >= 3 And System.DateTime.Now.Hour <= 6 Then
Dim myThreadStart As System.Threading.ThreadStart = New System.Threading.ThreadStart(AddressOf Amount)
Dim schedulerThread As System.Threading.Thread = New System.Threading.Thread(myThreadStart)
'开始定时执行线程
LogRunDateInfo("启动统计的线程") '此处日志可以写进文件
schedulerThread.Start()
End If
End Sub
'定时统计
Public Sub Amount()
Kingbo.Business.Amount()
LogRunDateInfo("统计完成") '此处日志没有记录进文件,而且对应数据库记录也没有更新
End Sub