以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助 时间对比 报错 求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191632)
--  作者：夜点蚊香
--  发布时间：2024/4/27 10:48:00
--  求助 时间对比 报错 求助
Dim Day As Date = #21:00#
Dim Day1 As Date = #23:00#
Dim tp As TimeSpan
tp = day - day1
    Output.Show(Format(day1,"HH:mm:ss"))
Output.Show(tp.TotalSeconds)

Dim dtkqsj1 As DataTable = Functions.Execute("生成cmd数据表","小程序考勤","")
Dim ckd123  As DataRow
ckd123 = dtkqsj1.SQLFind("记事人 = \'杜义\' And 上传时间 = \'2024-03-31\' And cast(记事时间 as time) >= \'" & Format(day,"HH:mm") & "\' And cast(记事时间 as time) <= \'" & Format(day1,"HH:mm") & "\'")


If ckd123 IsNot Nothing Then
    Output.Show(ckd123("上传时间"))
    Output.Show(ckd123("记事时间"))
    Output.Show(Format(ckd123("记事时间"),"HH:mm:ss"))
Else
    Output.Show(Format(ckd123("记事时间"),"HH:mm:ss"))
End If


记事时间 ，在  day  和 day1 之间的时候 可以正确查找  记事时间超出范围以后，报错


图片点击可在新窗口打开查看此主题相关图片如下：1714186073381.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2024/4/27 11:47:00
--  
如果ckd123为空，还是使用，肯定会出错


If ckd123 IsNot Nothing Then
    Output.Show(ckd123("上传时间"))
    Output.Show(ckd123("记事时间"))
    Output.Show(Format(ckd123("记事时间"),"HH:mm:ss"))
Else
    Output.Show(“找不到数据”)
End If
[此贴子已经被作者于2024/4/27 13:26:00编辑过]