以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口设计希望对表的数据筛选，在AfterLoad中的代码出现运行错误  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102974)
--  作者：1452565001
--  发布时间：2017/6/28 15:56:00
--  [求助]窗口设计希望对表的数据筛选，在AfterLoad中的代码出现运行错误

我希望能筛选出从今天到未来七天到期的订单并且在窗口中显示。

在窗口设计器中的窗口事件AfterLoad中写了代码如下：

Dim de As Date = Date.Today.AddDays(7)
Dim df As Date = Date.Today.AddDays(0)
DataTables("七日内到期_七日内到期").LoadFilter = " z104 <= #" & de & "#" And " z104 >= #" & df & "#" \'设置加载条件
DataTables("七日内到期_七日内到期").Load() \'加载数据

在预览时提示我运行错误：从字符串“ z104 <= #2017-07-05#”到类型“Long”的转换无效。

 

写成这样的时候

Dim dt As Date = Date.Today.AddDays(7)
DataTables("七日内到期_七日内到期").LoadFilter = " z104 <= #" & dt & "#" \'设置加载条件
DataTables("七日内到期_七日内到期").Load() \'加载数据

在预览时提示我运行错误‘#‘附近有语法错误

请问老师，错误出现在哪里，我该如何改正？
--  作者：wyz20130512
--  发布时间：2017/6/28 16:05:00
--  
内部表：
" z104 <= #" & de & "# And z104 >= #" & df & "#"

外部SQL Server表：
" z104 <= \'" & de & "\' And z104 >= \'" & df & "\'"
[此贴子已经被作者于2017/6/28 16:08:40编辑过]
--  作者：1452565001
--  发布时间：2017/6/28 16:18:00
--  

谢谢！