主题：Treeview 运行速度慢

我想通过两个combobox展开treeview中的某节点，并选中最下面的节点，然后显示筛选出的数据。combobox是treeview的两级。

下面代码可以实现，但是运行速度有些慢，treeview先变成白的，然后过1-2秒钟，才出来结果。能帮我看一下吗？谢谢！

 Dim cmb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cmb2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")

If cmb1.text <>"" And cmb2.text <>"" Then

DataTables("BasicLabel").Find("[危险项别] = '" & cmb2.Text & "' And [类别] = '" & cmb1.Text & "'")

Dim tr As WinForm.TreeView
tr = Forms("类别和危险类别中文说明").Controls("TreeView1")

tr.CollapseAll
tr.Nodes(cmb1.text).Expand()

tr.SelectedNode = tr.Nodes(cmb1.text).Nodes(cmb2.text)

Else

Messagebox.show("请选择合适的类别和危险项别!", "提示")

End If

那句是起到查询作用的吧。