以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期筛选代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38609)

--  作者:532net
--  发布时间:2013/8/2 13:26:00
--  日期筛选代码问题

各位老师好:

 

Dim rq As WinForm.DateTimePicker = e.Form.Controls("riqi")
Tables("运单表").Filter = "[CREATED_ON] = #" & rq & "# "

 

我在按钮控件中CLICK属性 添加了以上代码,想筛选出 字段CREATED_ON]=日期输入控件中输入的日期,但是确定的时候,出现如下错误提示

 

 

编译错误 Oper \'&\' is not defined for types ‘string’ and winform.datatimepicker

 

请老师看下是哪个地方出现了问题?

 

 

 

 


--  作者:lsy
--  发布时间:2013/8/2 13:57:00
--  
Tables("运单表").Filter = "[CREATED_ON] = #" & rq.Value & "# "
--  作者:532net
--  发布时间:2013/8/2 14:35:00
--  
以下是引用lsy在2013-8-2 13:57:00的发言:
Tables("运单表").Filter = "[CREATED_ON] = #" & rq.Value & "# "

您好,按照您的方式,输入日期后,无法筛选出符合条件的信息,我将项目上传,麻烦帮我修改下可以吗

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:sinoex.rar


--  作者:Bin
--  发布时间:2013/8/2 14:39:00
--  
因为你的列根本是是日期时间列.

1.把列改为日期时间列
2.当作字符串做字符串匹配筛选



--  作者:lsy
--  发布时间:2013/8/2 14:40:00
--  
没有数据源,打不开。
--  作者:lsy
--  发布时间:2013/8/2 14:44:00
--  

也没有相关的表,运单表在哪?你表A的日期,也好奇怪:

是字符类型,而且以冒号结尾。

[此贴子已经被作者于2013-8-2 14:45:58编辑过]

--  作者:Bin
--  发布时间:2013/8/2 14:47:00
--  
以下是引用lsy在2013-8-2 14:44:00的发言:

也没有相关的表,运单表在哪?你表A的日期,也好奇怪:

是字符类型,而且以冒号结尾。

[此贴子已经被作者于2013-8-2 14:45:58编辑过]

连接不上数据源,内部表A是字符串列,并且长度为16,不足以存放整个日期字符串,自动截短了.
--  作者:lsy
--  发布时间:2013/8/2 14:51:00
--  

那就先弄成内部表测试,楼主自己连SQl外部表的时候,再改一下:

Tables("运单表").Filter = "[CREATED_ON] = \'" & rq.Value & "\'"

[此贴子已经被作者于2013-8-2 14:52:09编辑过]

--  作者:532net
--  发布时间:2013/8/3 12:36:00
--  

感谢大家的回复,今天终于找到问题所在了

 

 

Dim riqi As WinForm.DateTimePicker = e.Form.Controls("日期选择")
Tables("发票查询").Filter = "[CREATED_ON] > #" & riqi.value &" #"

 

外部数据源加载的CREATED_ON字段是日期时间型的数据:比如:2013-08-02 17:23:19,

跟本地窗口控件值riqi.value 日期型数据:2013-08-02 进行“ = ”筛选,无法获取符合条件的数据,只有使用>或者<对比,才能筛选出符合条件的数据

 

请问大家,如何将2013-08-02 17:23:19这种类型的字段加载后同时修改为2013-08-02 这种类型的数据?


--  作者:狐狸爸爸
--  发布时间:2013/8/3 12:40:00
--  
你可以这样筛选的,例如筛选2013年8月2日的
 

Dim dt As Date = #8/2/2013#
Tables("发票查询").Filter = "[CREATED_ON] >= #" & dt & "# And [CREATED_ON]  < #" & dt.AddDays(1) & "#"