主题：目录树查找错误

以下是引用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

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