تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تصدير البيانات الى ملف اكسل ابراهيم ايبو 3 40 منذ 7 ساعة مضت
آخر رد: asemshahen5
  [VB.NET] قاعده البيانات لاتقوم بالحفظ من اول امر jassim316 4 84 22-02-19, 08:01 PM
آخر رد: elgokr
  [VB.NET] طريقة الاتصال واغلاق الاتصال بقاعدة البيانات dubai.eig 8 133 22-02-19, 07:53 PM
آخر رد: elgokr
  [كود] طريقة البحث عن صورة في قاعدة البيانات access باستعمال صورة أخرى technomedia 6 102 20-02-19, 04:01 PM
آخر رد: elgokr
  [VB.NET] فتح ارتباط تشعبي موجود ضمن قاعدة البيانات اكسس EMADSSS 2 76 17-02-19, 09:32 PM
آخر رد: EMADSSS
  برجاء تجربة المثال المرفق لتصدير البيانات الى اكسيل new_programer 7 161 15-02-19, 08:09 PM
آخر رد: new_programer
  [سؤال] عرض الصورة من قاعدة البيانات محمد اسماعيل 3 96 15-02-19, 06:28 AM
آخر رد: princelovelorn
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 4 130 14-02-19, 06:46 PM
آخر رد: عبد العزيز البسكري
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 3 104 11-02-19, 11:39 PM
آخر رد: princelovelorn
  عدم الحفظ في قاعدة البيانات في الوندوز 64 بايت raaddawood 9 180 06-02-19, 01:16 PM
آخر رد: sendbad100

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


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