[كريم عبودي]

(15-09-16, 02:47 PM)السيد الجوهري كتب :

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 


هل وجدت الحل اخي الكريم لو سمحت اذا وجدت الحل ممكن تضيفه هنا في الموضوع ولك جزيل الشكر تعبت وانا ادور حلول الله يجزاك الخير