Private Function Findnode(ByVal treelist As TreeNodeCollection)
If treelist Is Nothing Then
Return ""
End If
Dim nodex As TreeNode
For Each nodex In treelist
If nodex.Text = citystr Then
nodex.EnsureVisible()
nodex.Checked = True
Me.DreamsTView1.SelectedNode = nodex
Me.DreamsTView1.Focus()
Else
Findnode(nodex.Nodes)
End If
Next
End Function
用下以方法使用
cmd = New OleDbCommand(strcity5, conn)
Try
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
Catch ex As Exception
End Try
read = cmd.ExecuteReader()
If read.Read() Then
'TraverseNode(DreamsTView1.Nodes)
Findnode(DreamsTView1.Nodes)
End If
read.Close()