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