主题：求助，这种树形咋做

他可能要的是目录树...........财政的功能分类代码加名称   用递归函数学一下吧...找一下我之前问的目录树排序问题,那有代码

 

自定义函数

 

Addtree1

 

Dim nd As WinForm.TreeNode = args(0)

Dim dt As DataTable = args(1)

Dim drs As  List(of DataRow)

drs = dt.Select("[上级代码] = '" & nd.name & "'","功能分类_代码")

 

For Each dr As DataRow In drs

    Dim cd As Winform.TreeNode = nd.Nodes.Add(dr("功能分类_代码"),dr("功能分类_代码") &":"& dr("功能分类_科目名称"))

    Functions.Execute("Addtree1",cd,dt)

Next

 

 

 

功能分类窗口_AfterLoad

 

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

Dim nd As WinForm.TreeNode

Dim dt As DataTable = DataTables("功能分类")

tr.StopRedraw()

tr.Nodes.Clear

nd =tr.Nodes.Add("1","显示全部")

For Each dr As DataRow In dt.Select("","功能分类_代码")    '按功能分类代码排序

    If dr.IsNull("上级代码") Then

        nd = tr.Nodes.Add(dr("功能分类_代码"),dr("功能分类_代码") & ":" & dr("功能分类_科目名称"))

        Functions.Execute("Addtree1",nd,dt)

    End If

Next

tr.ResumeRedraw()

复制二段重要代码  自己去看一下就明了