主题：动态生成目录树时，如何更改节点标题

 在二楼的基础上改的。狐爸的方式不适合不加载的外部表。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:jr2012.foxdb

 清除原先的节点

trv.Nodes.Clear

 对于重复的问题，可以加一个判断。

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.Nodes.Clear()

Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "Select a.客户id,a.销售单号,b.客户名称 From {销售订单} a, {客户} b where a.客户id = b.客户id and a.订单日期 > '" & d2 & "' "
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.Nodes.Add("加载所有数据", "加载所有数据")
For Each dr As DataRow In dt.DataRows
    If trv.Nodes.Contains(dr("客户id")) = False Then
        Dim tnd As WinForm.TreeNode = trv.Nodes.Add(dr("客户id"),dr("客户id") & dr("客户名称"))
        For Each trvstr As String In dt.GetUniqueValues("客户id = '"& tnd.name &"'","销售单号")
            tnd.Nodes.Add(trvstr,trvstr)
        Next
    End If
Next

狐爸的方法，改一下，也行。

 For Each nd AS WinForm.TreeNode In Trv.Nodes
    If  nd.DataRow IsNot Nothing Then
          nd.Text = nd.Datarow("客户ID") & "客户名称"
    End If
Next