主题：计划任务的错误提示

Dim cmd As New SQLCommand

cmd.C

Dim sdt As Date

cmd.CommandText = "Select GetDate()"

sdt = cmd.ExecuteScalar()

Dim dr As DataRow = DataTables("QX_user").Find("UserID = '"  & tmpUserID & "'")

If dr IsNot Nothing Then

    If dr("sys_Offline") = True

        dr("sys_Offline") = False

        dr.save()

        tmprelogin = "2"

        syscmd.project.Exit(False)

    End If

    dr("RecentLoginTime") = sdt.now

    dr.save()

End If