主题：[求助]外部SQL前提下针对表的数据生成目录树

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

Dim nd As WinForm.TreeNode           

Dim dt As DataTable = DataTables("导航信息")   

tr.StopRedraw()         

tr.Nodes.Clear         

tr.Nodes.Add("桌面")        ‘设置返回主页面使用       

For Each dr As DataRow In dt.Select("","编号")        

    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    ''导航权限_显示

    Dim a As String = dr("权限")

    Dim c() As String

    c = a.split(",")

    For Index As Integer = 0 To c.Length - 1

        If  c(Index)=_UserGroup  Then

            

            If dr.IsNull("编号") = False AndAlso dr("编号").Length = 4 Then

                nd = tr.Nodes.Add(dr("编号"),dr("标题"))  

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

            End If

        End If

    Next

    

    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Next