以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于日期之间筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65909)
--  作者：huangfanzi
--  发布时间：2015/3/25 14:55:00
--  [求助]关于日期之间筛选
Dim GX As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox_工序")
Dim Filter As String
Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker_起始日期")
Dim dt2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker_结束日期")
Dim tb1 As WinForm.Table = e.Form.Controls("Table_查询表")
Filter = "工序 in (\'" & GX.Text.replace(",", "\',\'") & "\') And 起始时间  >= #" & dt1.Value & "# And 起始时间 <= #" & dt2.Value & "#"

以上代码中的DateTimePicker输入的内容是data型，但在筛选时我希望自动补成datatime型，例如起始日期录入2015-03-25，结束日期录入2015-03-26，在进行筛选时能成为：2015-03-25 00：00与2015-03-26 23：59，谢谢！
--  作者：有点甜
--  发布时间：2015/3/25 14:56:00
--  
Filter = "工序 in (\'" & GX.Text.replace(",", "\',\'") & "\') And 起始时间  >= #" & dt1.Value & "# And 起始时间 < #" & dt2.Value.AddDays(1) & "#"
--  作者：Bin
--  发布时间：2015/3/25 14:56:00
--  
Filter = "工序 in (\'" & GX.Text.replace(",", "\',\'") & "\') And 起始时间  >= #" & dt1.Value & " 00:00:00# And 起始时间 <= #" & dt2.Value & "23:59:59#"
--  作者：huangfanzi
--  发布时间：2015/3/25 15:39:00
--  
感谢二位老师，但代码有问题：
执行这条代码后弹出出错信息：
If dt1.Value = "" Then
dt1.Value = #01/01/1900#
End If

If dt2.Value = "" Then
dt2.Value = #12/31/2025#
End If
tb1.Table.Fill("select * f rom {工序合并表} where " & Filter,"ShcsMain",True)

.NET Framework 版本：2.0.50727.6421
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,工序合并表日期查询主窗口,Button_筛选,Click
详细错误信息：
从字符串“”到类型“Date”的转换无效。
[此贴子已经被作者于2015/3/25 15:40:18编辑过]
--  作者：有点甜
--  发布时间：2015/3/25 15:41:00
--  
2楼合成的filter不可能报错，你弹出filter看一下是什么值。
--  作者：Bin
--  发布时间：2015/3/25 15:42:00
--  
Filter = "工序 in (\'" & GX.Text.replace(",", "\',\'") & "\') And 起始时间  >= #" & dt1.Value & "# And 起始时间 <= #" & format(dt2.Value,"yyyy-MM-dd") & " 23:59:59#"
[此贴子已经被作者于2015/3/25 15:42:22编辑过]
--  作者：有点甜
--  发布时间：2015/3/25 15:42:00
--  

If dt2.Value = "" Then

 

改成

 

If dt2.Value = Nothing Then
--  作者：huangfanzi
--  发布时间：2015/3/25 15:45:00
--  
搞定，感谢二位老师。