主题：语法解法

Dim trv厂商 As WinForm.TreeView = e.Form.Controls("Trv供货厂商")

trv厂商.Nodes.Clear   '清除所有节点

'====添加目录树的【节点】

For i As Integer = 0 To bl_trv厂商.Length-1

    Dim trvnd厂商 As WinForm.TreeNode

    trvnd厂商=trv厂商.Nodes.Add("Root" & i,bl_trv厂商(i))

Next

请问下如何根据生成的临时表向指定根目录下添加子节点

 

下述表语句放在目录树的AfterSelectNode事件中可以实现我想要的功能，但是双次点击后，所生成的标题就不对了

 

Dim trv As WinForm.TreeView = e.Form.Controls("Trv供货厂商")

Dim nd As WinForm.TreeNode =trv.SelectedNode

Dim dt As DataTable

Dim cmd As new SQLCommand

cmd.ConnectionName="DB2PRD"

Select Case nd.name

    Case "root0"

        cmd.CommandText="select distinct ktokk,(case ktokk when 'Z001' then '外部供应商' when 'Z002' then '内部供应商'  when 'Z003' then '一次性供应商'  when 'Z004' then '财务供应商' else '其他' end) as ktokkt f rom sapprd.lfa1 where mandt='800'"

        dt=cmd.ExecuteReader()

        For Each dr As DataRow In dt.DataRows

            nd.Nodes.Add(dr("ktokk"),dr("ktokkt"))

        Next

        For Each nd  In trv.AllNodes

            Select Case nd.Level

                Case 0

                    nd.text=nd.text

                Case 1

                    Dim kg As String = new String (" ",10-nd.name.Length)   '定义kg的空格字符串,长度为【10-账户编号的长度】

                    nd.text=nd.name & kg & nd.text

            End Select

        Next

end select

我看了的，你创建的根目录是手工创建（即单个创建的），但我想先定个一个变量存放要根据的根目录，通过代码批量创建，以后增加时，我直接修改变这个变量即可

接下来我想根据指定表中的数据在根目录下生成子目录

请问下老师，如按【名称】划分下面还需要加一个子目录后，才根据表生成目录，又应怎么修改代码

此主题相关图片如下：目录树11.png

请问下，应怎么修改

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

点击浏览该文件:统计演示.table

此主题相关图片如下：目录树11.png