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

楼主用的是外部数据库？

看图片貌似是动态加载树，按理说你的要求需要编码用目录树来实现

Dim cmd As New SQLCommand
cmd.Connection Name = "JRRJ"
Dim dt As DataTable
cmd.CommandText = "Select a.客户id,a.销售单号,b.客户名称 From {销售订单} a,客户资料 b where a.客户id = b.客户id and a.订单日期 = '" & d1 & "' "
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.Nodes.Add("加载所有数据",0)
For Each dr As DataRow In dt.DataRows
    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
Next

还有一个简单且通用的办法：

http://www.foxtable.com/help/topics/2689.htm

http://www.foxtable.com/help/topics/2690.htm

'按常规生成目录树

For Each nd AS WinForm.TreeNode In Trv.AllNodes

    If  nd.DataRow IsNot Nothing Then

          nd.Text = nd.Datarow("客户ID") & "客户名称"

    End If

Next

根据狐爸方法：

For Each nd AS WinForm.TreeNode In Trv.AllNodes

    If  nd.DataRow IsNot Nothing Then

        if nd.AllNodes.Count = 0 then

          nd.Text = nd.Datarow("客户ID") & nd.Datarow("客户名称")

       end if 

    End If

Next

如下图：

此主题相关图片如下：目录树结点显示标题-20121114-03.jpg

http://www.foxtable.com/help/topics/0888.htm

有如下处理方法，这个方法在这里在怎样用

在窗口中插入一个目录树、一个按钮，将按钮的Click事件代码设为：

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = Forms("窗口1").Controls("TreeView1")
nd = Tr.Nodes.Add("Root1","根节点一")
nd.Nodes.Add("Sub1","子节点一")
nd.Nodes.Add("Sub2","子节点二")
nd = Tr.Nodes.Add("Root2","根节点二")
nd.Nodes.Add("Sub3","子节点三")
nd.Nodes.Add("Sub4","子节点四")

运行时单击按钮，会生成目录树：

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=25239&page=2

看看这个行不