treeview里的循环问题

Question

我写了这样一段代码
If cboFind.Text = "员工姓名" Then
   For i = 1 To frmMain.TreeView1.Nodes.count
   
   For j = 1 To Len(Str(Mid(frmMain.TreeView1.Nodes.Item(i).Text, 6)))
   For k = 1 To 3
   If Mid(Str(Mid(frmMain.TreeView1.Nodes.Item(i).Text, 6)), j, k) = txtFind.Text Then
        frmMain.TreeView1.Nodes(i).Selected = True '选择对象。
        findflag = True
        Unload Me
        Exit For
    End If
    Next k
    
    Next j
  Next iEnd If
是想经过这样一个流程，要经过3次循环，我的写法哪里错了，能帮帮我吗？

Answer 1

你可以用key来找呀，因为他是唯一的，不用循环

Answer 2

dim nodeX as nodeon error resume next
set nodeX=tvwtest.nodes(txtFind.Text)
if err then
   '没有这个东东
else
   '找到了，可以用nodex直接引用
   nodex.ensurevisible=true
end if试试看，我只是凭记忆写的，如果有什么不妥，请谅解

Answer 3

dim nNode as Nodeset nnode=tvw.nodes(key)   'KEY就是你要找的内容值