主题：求一个目录树模糊查找的代码改进方法

我的目录树生成的代码是这样的

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.GenerateTree("companyinformation","公司编号","公司名称",".")    
For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
                        
        nd.Text = nd.DataRow("公司编号") & " " & nd.text    
Next