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

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