我想做一个像帮助文件这样的一个目录树，双击的时候展开节点但是不加载数据，只有单击或者双击目录树最底层的节点才加载数据呢？上代码帮忙修改下吧代码如下：
1 窗口afterload:
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 供热站,小区,楼号,单元 from {客户信息}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"供热站|小区|楼号|单元")
2 目录树的NodeMouseDoubleClick 或者NodeMouseClick
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow
If e.Node.Text <> "显示所有客户" Then
Select Case e.Node.Level
Case 3
Filter = "[供热站] = '" & dr("供热站") & "' And [小区] = '" & dr("小区") & "' And [楼号] = '" & dr("楼号") & "' And [单元] = '" & dr("单元") & "'"
End Select
End If
Tables("客户信息").Filter = Filter
加好友 
发短信
Post By：2014/10/8 20:40:00 [显示全部帖子]
