主题：目录树定位

无语，最基本都不会。你根本就没看懂代码

 

直接匹配 就用   A = B

 

匹配前面，就用 StartsWith

 

匹配后面，就用 EndsWith

 

总是只能找到下1个，找不到1个，例如规格2.5，只能找到1个

贴出代码。

谢谢大红袍，基本搞定了。

又来麻烦老师。以上根据单项查找定位已搞定，现在同事要求根据型号规格（第3层和第4层，如BVR 0.75）进行组合查询定位，求代码。

 贴出你写的代码啊

Dim dm As WinForm.TextBox = e.Form.Controls("代码")
Dim xh As WinForm.TextBox = e.Form.Controls("型号")
Dim gg As WinForm.TextBox = e.Form.Controls("规格")
Dim count As Integer = 0
If dm.Text > "" Then count += 1
If xh.Text > "" Then count += 1
If xh.Text > "" Then count += 1

Dim trv As WinForm.TreeView =  e.Form.Controls("TreeView1")
Dim Start As Integer
Dim idx As Integer = - 1
If trv.SelectedNode IsNot Nothing Then '获取当前节点位置.
    Dim FullName As String = trv.SelectedNode.FullName
    For i As Integer = 0 To trv.AllNodes.count - 1
        If trv.AllNodes(i).FullName = FullName  Then
            Start = i
            Exit For
        End If
    Next
End If
For i As Integer = Start + 1 To trv.AllNodes.count - 1  '从当前节点的下一个节点开始查找
    Dim nd As WinForm.TreeNode = trv.AllNodes(i)
    If dm.text >= "" Then
        If nd.level = 3 AndAlso nd.Text.IndexOf(dm.Text) >= 0 Then
            If gg.Text > "" Then
                If nd.text.IndexOf(gg.Text) >= 0 Then
                    If xh.Text > "" Then
                        If nd.ParentNode.Text.IndexOf(xh.Text) >= 0 Then
                            trv.SelectedNode = nd
                            nd.EnsureVisible
                            idx = i '将找到的位置复制给变量idx
                            Exit For
                        End If
                    Else
                        trv.SelectedNode = nd
                        nd.EnsureVisible
                        idx = i '将找到的位置复制给变量idx
                        Exit For
                    End If
                End If
            Else
                trv.SelectedNode = nd
                nd.EnsureVisible
                idx = i '将找到的位置复制给变量idx
                Exit For
            End If
        End If
    ElseIf gg.Text > "" Then
        If nd.text.IndexOf(gg.Text) >= 0 Then
            If xh.Text > "" Then
                If nd.ParentNode.Text.IndexOf(xh.Text) >= 0 Then
                    trv.SelectedNode = nd
                    nd.EnsureVisible
                    idx = i '将找到的位置复制给变量idx
                    Exit For
                End If
            Else
                trv.SelectedNode = nd
                nd.EnsureVisible
                idx = i '将找到的位置复制给变量idx
                Exit For
            End If
        End If
    Else
        If xh.Text > "" Then
            If nd.ParentNode.Text.IndexOf(xh.Text) >= 0 Then
                trv.SelectedNode = nd
                nd.EnsureVisible
                idx = i '将找到的位置复制给变量idx
                Exit For
            End If
        End If
       
    End If
Next
If idx = -1 Then
    msgbox("找完了")
End If
trv.Select()

大红袍老师辛苦了。这样查找太复杂了，我现在只需要1个文本框，在这个文本框中按型号规格查找（不考虑代码）

看懂18楼，自己改写。