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
