以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树查找错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32001)
--  作者：hbaijia
--  发布时间：2013/4/24 10:00:00
--  目录树查找错误

我自建了一个目录树，三级，一级选中后可以找到需要项，但点击二级目录时却不行，请帮忙指导一下。

表中是将三级合在一起的,ZP一级，001二级，006三级

 

  第一列    单号     
       ZP 001 006    

目录树是

ZP

   ---001

       ----006

问题好像出在

    Case 0
        Tables("登记表").Filter = "[单号] = \'" & Value(0) & "\'

    Case 1
        Tables("登记表").Filter = "[单号] = \'" & Value(0) & "\' And [单号] = \'" & Value(1) & "\'" 
--  作者：Bin
--  发布时间：2013/4/24 10:03:00
--  
把例子发出来会便于别人帮助你.
--  作者：hbaijia
--  发布时间：2013/4/24 10:19:00
--  

这就是我写的啊，最多加上前后通用的，然后就是上面的了

Dim Value() As String

Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level

   Case 0
        Tables("登记表").Filter = "[单号] = \'" & Value(0) & "\'

    Case 1
        Tables("登记表").Filter = "[单号] = \'" & Value(0) & "\' And [单号] = \'" & Value(1) & "\'" 

 

End Select

当选择一级时没问题的，就是选第二级时没反应，关键是单号那里的内容是合起来的，要分开找
--  作者：Bin
--  发布时间：2013/4/24 10:25:00
--  
以下是引用hbaijia在2013-4-24 10:19:00的发言：

这就是我写的啊，最多加上前后通用的，然后就是上面的了

Dim Value() As String

Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level

   Case 0
        Tables("登记表").Filter = "[单号] = \'" & Value(0) & "\'

    Case 1
        Tables("登记表").Filter = "[单号] = \'" & Value(0) & "\' And [单号] = \'" & Value(1) & "\'" 

 

End Select

当选择一级时没问题的，就是选第二级时没反应，关键是单号那里的内容是合起来的，要分开找

我的意思是,把项目文件发出来.
--  作者：菲舍尔
--  发布时间：2013/4/24 10:43:00
--  

你的单号是合起来的？用什么连接符连在一起？

 

如果像你说的3级连在一起的话，直接用一句就行了

 

Tables("登记表").Filter = "[单号] = \'" & e.node.fulpath.replace("\\"," ") & "\'"