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

楼上的昨晚看了，真是不好懂，再看看

根据狐爸方法，第一个客户的名称没能显示出，点目录树筛选记录也正常：

For Each nd AS WinForm.TreeNode In Trv.AllNodes

    If  nd.DataRow IsNot Nothing Then

        if nd.AllNodes.Count = 1 then

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

       end if 

    End If

Next

如下图：

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

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

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

你的方法可以啊，想在前面去了，要加事先判断