专家坐堂-请求帮我看下这段代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请求帮我看下这段代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=23784)

--  作者：191422411
--  发布时间：2012/9/20 8:53:00
--  请求帮我看下这段代码

[此贴子已经被作者于2014-10-30 21:46:51编辑过]

--  作者：lin_hailun
--  发布时间：2012/9/20 9:13:00
--
估计是这段代码写错了

Select Case e.Node.Level
    Case 0
        Filter =Filter1 And "Year(收款日期) = " & Value(0)
    Case 1
        Filter =Filter1 And "Year(收款日期) = " & Value(0) & " And Month(收款日期) = " & Value(1)
    Case 2
        Filter =Filter1 And "Year(收款日期) = " & Value(0) & " And Month(收款日期) = " & Value(1)& " And Day(收款日期) = \'" & Value(2) & "\'"
End Select

改为

Select Case e.Node.Level
    Case 0
        Filter =Filter1 & " And Year(收款日期) = " & Value(0)
    Case 1
        Filter =Filter1 & " And Year(收款日期) = " & Value(0) & " And Month(收款日期) = " & Value(1)
    Case 2
        Filter =Filter1 & " And Year(收款日期) = " & Value(0) & " And Month(收款日期) = " & Value(1) & " And Day(收款日期) = \'" & Value(2) & "\'"
End Select

--  作者：狐狸爸爸
--  发布时间：2012/9/20 9:21:00
--

遇到这种问题，通话可以显示一下合成的表达式，看看是否正确：

...

...

DataTables("车辆鉴定").LoadFilter = Filter

MessageBox.show(Filter)
DataTables("车辆鉴定").Load

--  作者：191422411
--  发布时间：2012/9/20 9:28:00
--

呵呵语法错误没有了可是点日的时候没效果

还是哪里有问题

是不是条件合成的中 and 和 or 运算的问题

请帮解答下

--  作者：lin_hailun
--  发布时间：2012/9/20 9:33:00
--
Day(收款日期) = \'" & Value(2) & "\'"

多了单引号。数值比较不必单引号。

--  作者：191422411
--  发布时间：2012/9/20 9:34:00
--

此主题相关图片如下：16.png

合成之后的

--  作者：191422411
--  发布时间：2012/9/20 9:35:00
--

为什么点击节点时没反应

--  作者：czy
--  发布时间：2012/9/20 9:36:00
--
通配符比较的地方应该都有错误吧。

--  作者：191422411
--  发布时间：2012/9/20 9:42:00
--

搞定了谢谢大家特别9楼的

感觉应该加括号就是不知道怎么加

[此贴子已经被作者于2012-9-20 9:42:48编辑过]