12-06-14, 12:38 PM
يتم عرض البيانات بشكل جيد ولكن فى المشتوى الثالث يتم عرض البيانات فى اول تصنيف من المستوى الثانى
برجاء مراجعة الكود
برجاء مراجعة الكود
كود :
TreeView1.Nodes.Clear()
If con.State = ConnectionState.Closed Then con.Open()
Dim G As Integer = 0
Dim G_n As Integer = 0
TreeView1.Nodes.Add(" ", "شجرة المعلومات")
Dim cmd As New SqlCeCommand("Select id,name,cid from news where cid='0' ", con)
cmd.Connection = con
Dim drr As SqlCeDataReader = cmd.ExecuteReader
While drr.Read
G += 1
TreeView1.Nodes.Add(drr.GetValue(0).ToString, drr.GetValue(1).ToString)
Dim cmd_1 As New SqlCeCommand("Select id,name from news where cid=" & drr.GetValue(0).ToString & "", con)
cmd_1.Connection = con
Dim drr_n As SqlCeDataReader = cmd_1.ExecuteReader
Dim Name As String
While drr_n.Read
Name = drr_n.GetValue(0).ToString
TreeView1.Nodes(G).Nodes.Add(Name, drr_n.GetValue(1))
Dim cmd_2 As New SqlCeCommand("Select id,name from news where cid=" & drr_n.GetValue(0).ToString & "", con)
cmd_2.Connection = con
Dim drr_n_2 As SqlCeDataReader = cmd_2.ExecuteReader
While drr_n_2.Read
TreeView1.Nodes(G).Nodes(G_n).Nodes.Add(drr_n_2.GetValue(0), drr_n_2.GetValue(1))
End While
drr_n_2.Close()
End While
drr_n.Close()
End While
drr.Close()
con.Close()