以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 刷新加载问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82989)
--  作者：husl
--  发布时间：2016/3/29 14:02:00
--  [求助] 刷新加载问题
Dim s As String = "等待出库"

Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek \'算出今天是星期几
Dim dt1 As Date = Date.Today.AddDays(-w) \'获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(6 - w) \'获取本周的最后一天
Dim Filter As String
Filter = "下单日期 >= #" & dt1 & "# And 下单日期 <= #" & dt2 & "# or 出库情况 is null or 出库情况=\'"& s &"\'"

DataTables("出库明细表").LoadFilter=Filter
DataTables("出库明细表").Load()


狐爸好，麻烦帮我看看这段代码哪里有问题？为什么执行的时候总是提示 # 附近有错误。
我用上面代码执行查询都可，可是改成加载就不行了。谢谢！！
--  作者：大红袍
--  发布时间：2016/3/29 14:19:00
--  

sqlserver数据库，要用单引号\'\'代替##

 

Filter = "下单日期 >= \'" & dt1 & "\' And 下单日期 <= \'" & dt2 & "\' or 出库情况 is null or 出库情况=\'"& s &"\'"
--  作者：husl
--  发布时间：2016/3/29 14:30:00
--  
可以了。谢谢老师！~