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

 你的意思是不生成目录树？

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

改成

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

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.sqlSelect("","", "编号")
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ''导航权限_显示
    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

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