以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  时间筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40452)
--  作者：lfxxdt
--  发布时间：2013/9/20 13:41:00
--  时间筛选

Dim StartDate As Date = Date.Today().AddDays(-10)
Forms("联号清单").show()
DataTables("联号清单").loadFilter = "系列=  \'" & "F" & "\' and 日期> \'#" & StartDate & "#\'"
DataTables("联号清单").load

 

以上代码运行后，提示“从字符串转换为datetime时发生语法错误”这是什么原因，应该如何修改。

 
--  作者：程兴刚
--  发布时间：2013/9/20 14:20:00
--  
DataTables("联号清单").loadFilter = "系列= \'F\' and 日期> #" & StartDate & "#"
[此贴子已经被作者于2013-9-20 14:21:07编辑过]
--  作者：lfxxdt
--  发布时间：2013/9/20 14:32:00
--  
不行，运行后提示“第 1 行: \'#\' 附近有语法错误。”
--  作者：程兴刚
--  发布时间：2013/9/20 14:49:00
--  
发文件！
--  作者：lsy
--  发布时间：2013/9/20 14:55:00
--  

可能是Sql数据源吧。

如果是，#改\'
--  作者：lfxxdt
--  发布时间：2013/9/20 15:41:00
--  

Dim StartDate As Date = Date.Today().AddDays(-10)
Forms("联号清单").show()
DataTables("联号清单").loadFilter = "系列=  \'" & "F" & "\' "
DataTables("联号清单").load

 

这段代码可运行，不过我加了“and 日期> \'#" & StartDate & "#\'"这句后就运行提示“从字符串转换为datetime时发生语法错误”
--  作者：程兴刚
--  发布时间：2013/9/20 15:44:00
--  
看五楼，如果是SQL数据源，将#改为\'