主题：[求助] TreeView目录树直接用SQL数据表？

不是死机吧。是不是你获取的数据量太大？执行下面的代码，看你表格有多少行。

msgbox(sqldt.datarows.count)

每次只加载一层或两层的目录树，不全部生成

http://www.foxtable.com/webhelp/scr/2502.htm

类似 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=117734&skin=0

不会做，就发实例上来测试

窗口2_Button2_Click

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim dt As DataTable = DataTables("表A")
Dim fi As String = "代码 not like '%.%'"
tr.nodes.Clear
Dim drs As List(of DataRow) = dt.Select(fi)
For Each dr As DataRow In drs
    Dim nd = tr.Nodes.Add(dr("代码"),dr("代码") & "(" & dr("名称") & ")")
    For Each cdr As DataRow In dt.Select("代码 like '" & dr("代码") & ".%'")
        If cdr("代码").split(".").length = dr("代码").split(".").length+1 Then
            nd.Nodes.Add(cdr("代码"),cdr("代码") & "(" & cdr("名称") & ")")
        End If
    Next
Next

窗口2_TreeView1_BeforeExpandNode

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim dt As DataTable = DataTables("表A")
Dim fi As String = "代码 like '" & e.node.name & ".%'"
e.node.nodes.Clear
Dim drs As List(of DataRow) = dt.Select(fi)
For Each dr As DataRow In drs
    If dr("代码").split(".").length = e.node.name.split(".").length+1 Then
        Dim nd = e.node.Nodes.Add(dr("代码"),dr("代码") & "(" & dr("名称") & ")")
        For Each cdr As DataRow In dt.Select("代码 like '" & dr("代码") & ".%'")
            If cdr("代码").split(".").length = dr("代码").split(".").length+1 Then
                nd.Nodes.Add(cdr("代码"),cdr("代码") & "(" & cdr("名称") & ")")
            End If
        Next
    End If
Next

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim dt As DataTable = DataTables("表A")
Dim fi As String = "代码 not like '%.%'"
tr.nodes.Clear
Dim drs As List(of DataRow) = dt.Select(fi)
For Each dr As DataRow In drs
    Dim nd = tr.Nodes.Add(dr("代码"),dr("代码") & "(" & dr("名称") & ")")
    For Each cdr As DataRow In dt.Select("代码 like '" & dr("代码") & ".%'")
        If cdr("代码").split(".").length = dr("代码").split(".").length+1 Then
            nd.Nodes.Add(cdr("代码"),cdr("代码") & "(" & cdr("名称") & ")")
            Exit For
        End If
    Next
Next

----------------------

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim dt As DataTable = DataTables("表A")
Dim fi As String = "代码 like '" & e.node.name & ".%'"
e.node.nodes.Clear
Dim drs As List(of DataRow) = dt.Select(fi)
For Each dr As DataRow In drs
    Dim ddr = dt.find("代码 like '" & dr("代码") & ".%'")
    If ddr IsNot Nothing Then
        If dr("代码").split(".").length = e.node.name.split(".").length+1 Then
            Dim nd = e.node.Nodes.Add(dr("代码"),dr("代码") & "(" & dr("名称") & ")")           
            For Each cdr As DataRow In dt.Select("代码 like '" & dr("代码") & ".%'")
                If cdr("代码").split(".").length = dr("代码").split(".").length+1 Then
                    Dim dddr = dt.find("代码 like '" & cdr("代码") & ".%'")
                    If dddr IsNot Nothing Then
                        nd.Nodes.Add(cdr("代码"),cdr("代码") & "(" & cdr("名称") & ")")
                        Exit For
                    End If
                End If
            Next
        End If
    End If
Next

具体实例发上来测试。