以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何用DateTimePicker查找数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185301)

--  作者:min-fox
--  发布时间:2023/2/15 12:36:00
--  如何用DateTimePicker查找数据

蓝老师,通过窗口中的DateTimePicker1查找数据,如果DateTimePicker1中没有数据,则显示全部,该如何写?

Dim ymd As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Tables("日记列表").Filter = "日期 = \'" & ymd.Text & "\'"

if ymd isnull then

Tables("日记列表").Filter = ""

end if


--  作者:有点蓝
--  发布时间:2023/2/15 13:37:00
--  
Dim ymd As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
if ymd.value = nothing then
Tables("日记列表").Filter = ""
else
Tables("日记列表").Filter = "日期 = #" & ymd.value & "#"
endif