Foxtable(狐表)用户栏目专家坐堂 → 如何用DateTimePicker查找数据


  共有2490人关注过本帖树形打印复制链接

主题:如何用DateTimePicker查找数据

帅哥哟,离线,有人找我吗?
min-fox
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:141 积分:1091 威望:0 精华:0 注册:2022/5/17 22:25:00
如何用DateTimePicker查找数据  发帖心情 Post By:2023/2/15 12:36:00 [只看该作者]

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

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

if ymd isnull then

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

end if


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107304 积分:545781 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部