تقييم الموضوع :
  • 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] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 274 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  جملة الاتصال بقاعدة البيانات اكسس محمد خيري 4 362 12-12-23, 03:14 AM
آخر رد: محمد خيري
  كود الاتصال بقاعدة البيانات sqlserver strongriseman 2 421 29-11-23, 09:25 PM
آخر رد: العتيق
Heart [VB.NET] كيفية جعل الدتاجريديد فيو تظهر عندما تكون قاعدة البيانات فارغه الحزين اليماني 1 371 22-11-23, 05:31 PM
آخر رد: justforit
  الحفاظ على خصائص قاعدة البيانات عند النقل strongriseman 0 280 19-11-23, 12:28 PM
آخر رد: strongriseman

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


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