主题：[求助]计划任务没有定时执行

If Forms("人脸指纹采集").Opened Then
    Dim bt As WinForm.Button = Forms("人脸指纹采集").Controls("采集钩选")
    Dim cmd As New SQLCommand
    Dim dt As Date
    cmd.C
    cmd.CommandText = "Select GetDate()"
    dt = cmd.ExecuteScalar()
    Dim dr As DataRow
    dr=DataTables("采集时间").Find("  时间 = '" & Format(dt, "HH:mm:ss") & " '")
    If dr IsNot Nothing Then
              bt.PerformClick
    End If
End If

 

我写在计划任务里写了一段代码，只要到了表格里的时间就自动去执行，可以我发现有时候能执行，有时候执行不了，请大师们帮我看一下，代码哪里需要修改一下，谢谢

此主题相关图片如下：xx.png


此主题相关图片如下：yy.png

1、Select GetDate() 可能耗时超过1秒的时间，因为要连接数据库取得；

 

2、所以你查询的时候，应该允许有几秒的误差。

 

Dim d As Date = new Date(1900, 1, 1, dt.Hour, dt.Minute, dt.Second)

dr=DataTables("采集时间").Find("时间 >= #" & dt.AddSeconds(-5) & "# and 时间 <= #" & dt.AddSeconds(5) & "#")