主题：语法解法

做一个内部数据源的项目发上来测试。

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

点击浏览该文件:管理项目10.zip

参考代码

 

Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim dt As DataTable = DataTables("LFA1")
trv.nodes.Clear
Dim nd As WinForm.TreeNode = trv.nodes.Add("按【类型】划分")
For Each lx As String In dt.GetValues("ktokk")
    nd.nodes.Add(lx)
Next
nd = trv.nodes.Add("按【名称】划分")
For Each lx As String In dt.GetValues("name1")
    nd.nodes.Add(lx)
Next

窗口的AfterLoad事件

‘----定义目录树【根目录】的标题

dim  bl_trv厂商 As String() = {"按【类型】划分","按【公司】划分","按【区域】划分","按【创建者】划分","按【创建日期】划分","按【付款周期】划分"}

'-------生成【根目录树】

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

认认真真看代码啊

 

Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim dt As DataTable = DataTables("LFA1")
trv.nodes.Clear
Dim nd As WinForm.TreeNode = trv.nodes.Add("按【类型】划分")
For Each lx As String In dt.GetValues("ktokk")
    nd.nodes.Add(lx)
Next
nd = trv.nodes.Add("按【名称】划分")
For Each lx As String In dt.GetValues("name1")
    nd.nodes.Add(lx)
Next