تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سئوال حول كود عرض البيانات فىTreeView1 الى 3 مستويات
#1
يتم عرض البيانات بشكل جيد ولكن فى المشتوى الثالث يتم عرض البيانات فى اول تصنيف من المستوى الثانى
برجاء مراجعة الكود
كود :
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()
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله

ربما كان سبب ذلك هو المتغير G لأنك زدته بمقدار 1 في بداية الحلقة المفروض يكون في نهاية الحلقة الأولى

لأنه في بداية الحلقة سيأخذ القيمة 1 والمعروف أن Index الـ Nodes يبدأ عادة بالرقم 0

أو يمكنك تركه في بداية الحلقة ولكن في تعريفه بالأعلى تجعل قيمته الابتدائية تساوى -1 بدلا عن صفر

والله أعلم
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#3
الحمد لله توصلت لعمل كود صغير جدا وقوى جدا فى التعامل مع treeView ارجو ان يستفادة منه الاعضاء الكرام
PHP كود :
Private Sub PopulateTreeView()
        
TreeView1.Nodes.Clear()
        
fillTree(" ""بيانات الدليل"Nothing)
    
End Sub
    
Public Sub fillTree(ByVal key As StringByVal txt As StringByVal N As TreeNode)
        
Dim cmd As New SqlCeCommand
        
If con.State ConnectionState.Closed Then con.Open()
        
cmd.Connection con
        cmd
.CommandText "Select id,name,cid from tab_name where cid='" key "'"
        
Dim dr cmd.ExecuteReader
        Dim NN 
As TreeNode
        
If N Is Nothing Then
            NN 
TreeView1.Nodes.Add(keytxt0)
        Else
            
NN N.Nodes.Add(keytxt1)
        
End If
        Do While 
dr.Read
            fillTree
(dr(0).ToStringdr(1).ToStringNN)
        
Loop

    End Sub 
الرد }}}}
تم الشكر بواسطة: kslawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] التجميع و الفرز قواعد البيانات tifagreet 4 48 منذ 6 ساعة مضت
آخر رد: tifagreet
  استفسار عن الجداول المتعددة في قاعدة البيانات اكسس أبووسم 4 112 14-01-17, 12:36 PM
آخر رد: أبووسم
  ياشباب ارجو منكم المساعده لدي مشاكل في اضافه الصورة الى قاعده البيانات وعمل بحث ammar ali 3 160 13-01-17, 11:15 PM
آخر رد: ammaraliali
  [VB.NET] استقبال البيانات عن طريق serail port engmedomed@gmail.com 1 65 11-01-17, 02:13 AM
آخر رد: مساعدة
  سئوال بخصوص التاريخ السيد الجوهري 2 109 08-01-17, 04:01 PM
آخر رد: السيد الجوهري
  تصدير البيانات الى PDF باستخدام ITextSharp لايدعم اللغة العربية فاطمة غ 8 343 04-01-17, 12:00 AM
آخر رد: مساعدة
  تغيير قاعدة البيانات الى .bak صبري زينوبي 5 133 01-01-17, 02:33 PM
آخر رد: صبري زينوبي
  ماهو كود اضافة صفوف الداتا قرد الي قاعدة البيانات SQL SERVER معتز الجازوي 0 68 26-12-16, 05:13 AM
آخر رد: معتز الجازوي
  مساعده اريد كود لحذف عدد من الصفوف من الداتا قرد فيو وكذلك تنحذف من قاعدة البيانات معتز الجازوي 2 106 25-12-16, 01:44 PM
آخر رد: thevirus
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 11 566 18-12-16, 07:15 PM
آخر رد: أبووسم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم