主题：日期筛选代码问题

各位老师好：

 

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

 

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

 

 

 

 

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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:sinoex.rar

因为你的列根本是是日期时间列.

没有数据源，打不开。

也没有相关的表，运单表在哪？你表A的日期，也好奇怪：

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

连接不上数据源,内部表A是字符串列,并且长度为16,不足以存放整个日期字符串,自动截短了.

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

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

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

 

 

Dim riqi As WinForm.DateTimePicker = e.Form.Controls("日期选择")
Tables("fa piao查询").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月2日的
 

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