[السيد الجوهري]

PHP كود :

Private Sub CreateTree(ByVal TreeView1 As TreeView)
        Module1.connect()
        sql = "SELECT RootID, RootName, ParentID, RootLevel, RootID & ' : ' & RootName as MyRoot FROM tblRoots Order By RootID"
        ds = New DataSet
        dt = New DataTable
        da = New SqlDataAdapter(sql, Conn)
        da.Fill(ds, "tblRoots")
        dv = New DataView(ds.Tables("tblRoots"))
        dt = dv.ToTable

        Dim MaxLevel1 As Integer = CInt(dt.Compute("MAX(RootLevel)", ""))

        Dim i, j As Integer

        For i = 0 To MaxLevel1
            Dim Rows1() As DataRow = dt.Select("RootLevel = " & i)
            For j = 0 To Rows1.Count - 1
                Dim ID1 As String = Rows1(j).Item("RootID").ToString
                Dim Name1 As String = Rows1(j).Item("RootName").ToString
                Dim Parent1 As String = Rows1(j).Item("ParentID").ToString
                Dim FullID As String = Rows1(j).Item("MyRoot").ToString

                If Parent1 = "-1" Then
                    TreeView1.Nodes.Add(ID1, Name1)
                Else
                    Dim TreeNodes1() As TreeNode = TreeView1.Nodes.Find(Parent1, True)
                    If TreeNodes1.Length > 0 Then
                        TreeNodes1(0).Nodes.Add(ID1, FullID)
                    End If
                End If
            Next
        Next
    End Sub