以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]时间表达式有问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=42883)

--  作者:sensen9025
--  发布时间:2013/11/25 9:57:00
--  [求助]时间表达式有问题

If e.Node.Text = "当天"
            Tables("tb_product").Filter = "[fx_orderdate] = #date.today# "

 

.NET Framework 版本:2.0.50727.42
Foxtable 版本:2013.6.28.1
错误所在事件:
详细错误信息:
The string was not recognized as a valid DateTime. There is a unknown word starting at index 0.

 

原完整代码:

 

Dim Value() As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
    Case 0
        If e.Node.Text = "显示所有行" Then
            Tables("tb_product").Filter = "[hasCancel]=false"
        ElseIf e.Node.Text = "当天"
            Tables("tb_product").Filter = "[fx_orderdate] = #date.today# "
        ElseIf e.Node.Text = "五日内"
            Tables("tb_product").Filter = "[fx_orderdate] >=#(date.todaya-5)# "
        ElseIf e.Node.Text = "十五日内"
           Tables("tb_product").Filter = "[fx_orderdate] >=#(date.todaya-15)# "
        End If
    Case 1
        Tables("tb_product").Filter = "[fx_orderdate] = \'" & Value(0) & "\' And [productname] = \'" & Value(1) & "\'"
End Select

 


--  作者:狐狸爸爸
--  发布时间:2013/11/25 9:58:00
--  

正确的:

Tables("tb_product").Filter = "[fx_orderdate] = #“ & date.today & ”#"

 

关于合成表达式,您可以看看:

http://www.foxtable.com/help/topics/1284.htm

 


--  作者:sensen9025
--  发布时间:2013/11/25 14:20:00
--  

谢谢指点。