求助，比较复杂的日期查询，狐爸来帮忙啊！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助，比较复杂的日期查询，狐爸来帮忙啊！

共有8562人关注过本帖树形打印复制链接主题：求助，比较复杂的日期查询，狐爸来帮忙啊！

sadfox

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

求助，比较复杂的日期查询，狐爸来帮忙啊！ 发帖心情

Post By：2013/3/23 18:24:00 [显示全部帖子]

如图，下拉文本框中的选项对应表中的列。

1、需要不管是只输入年或者输入年和月，或者完整输入时间都能查询到对应列的日期.

2、同理。再增加个时间段的查询栏目，如1995-2013

3、查询没有时能出现提示，没有符合条件的数据。

只能求大神帮忙了，没相识的案列，希望大神能把代码注释写上，好学习一下。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:7,(2).table

此主题相关图片如下：674.jpg

[此贴子已经被作者于2013-3-24 14:00:41编辑过]

sadfox

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

Post By：2013/3/23 20:43:00 [显示全部帖子]

不能实现吗，如果可以，能不能再加个时间段的查询！

sadfox

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

Post By：2013/3/23 20:47:00 [显示全部帖子]

郁闷是，为了搞这个，把项目都搞崩溃了，现在按ctrl都启动不了啦！

sadfox

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

Post By：2013/3/23 21:49:00 [显示全部帖子]

以下是引用lsy在2013-3-23 21:32:00的发言：
Dim t As Table = Tables("资料查询_资料查询")
Dim cmbtxt = e.Form.Controls("ComboBox1").Text
t.Filter = (cmbtxt & " = #" & e.Form.Controls("TextBox1").Text & "-" & e.Form.Controls("TextBox2").Text & "-" _
& e.Form.Controls("TextBox3").Text & "#")

引用，你这个只能输入完整的日期才能查询，如果只输入年份或者只输入年和月份就不能查询了