在一个窗口中有一目录树控件
TreeView1。在AFTERLOAD事件中有一段程序如下:
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = 数据源名
cmd.CommandText = "SELECT * From {库存} "
dt = cmd.ExecuteReader
tv.Nodes.Clear
tv.BuildTree(dt, "仓库类别|料品大类|料品编码")
Dim tt As DataRow
For Each g1 As WinForm.TreeNode In tv.Nodes
For Each g2 As WinForm.TreeNode In g1.Nodes
For Each g3 As WinForm.TreeNode In g2.Nodes
tt=dt.find("料品编码='" & g3.name & "' AND 仓库类别='" & g1.text & "'")
If tt IsNot Nothing Then
g3.Text= tt("料品编码") & "|" & tt("料品中类") & "|" & tt("料品名称") & "|" & tt("规格")
End If
Next
Next
Next
nd = tv.Nodes.Insert("加载全部记录","加载全部记录",0)
窗口打开运行正常;
把这段程序放到该控件的NodeMouseDoubleClick事件中,没有任何改动,这时运行的结果就非常的慢。什么原因呢?