主题：目录树筛选

我在窗口事件里设置这个代码,自动生成目录树:

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

tr.BuildTree("管理表", "管理项目|客户编号|合同编号")

在目录树的单击按钮中放入此代码:

 

我在双击的节点:

Dim s As String = e.Sender.SelectedNode.Text

For Each t As Table In Tables

    If s= t.name Then

       Dim Value()As String

        Value = e.Node.FullPath.Split("\")

        Select Case e.Node.Level

            Case 0

                Tables(s).Filter ="[客户编号] = '" & Value(0) & "'"

            Case 1

                Tables(s).Filter ="[客户编号] = '" & Value(0) & "' And [合同编号] = '" & Value(1) & "'"

        End Select

    End If

Next

   这个筛选不起作用.我要跟着第一个节点筛选客户编号,根据第二个节点筛选合同编号,我把e.Node.FullPath.Split("\")改成 s.Split("\")也没有用.

  应该怎么修改这个筛选代码?

For Each dr As DataRow In DataTables("管理表").DataRows

    Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

    For Each nd As WinForm.TreeNode In trv.AllNodes

        If nd.Text.Contains(dr("管理项目")) Then

            trv.SelectedNode = nd

            Dim Value()As String

            Value = e.Node.FullPath.Split("\")

            Select Case e.Node.Level

                Case 1

                    Tables(Nd.Text).Filter ="[客户名称] = '" & Value(1) & "'"

                Case 2

                    Tables(Nd.Text).Filter ="[客户名称] = '" & Value(1) & "' And [合同编号] = '" & Value(2) & "'"

            End Select

        End If

    Next

Next

帮我看一下,我这段代码为什么是所有表都筛选,而不是当前表筛选.

唉,其实是把自己绕进去了.