منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - محتاج مساعده بسيطه مع اداه Treevieewer

لو سمحت ممكن حد يساعدنى
محتاج الاكواد الى املىء بها treeviewer من قاعده بيانات SQL SERVER
هل البيانات بالشكل الى فى الصورة تنفع بهذا الشكل ل Treeviewer ?

ممكن حد يدينى مصدر اتعلم منه ؟ ..
انا وجدت شرح لكن متطلب اكواد للحسابات Integer مش قابل معايا String

(01-12-22, 05:41 PM)Àhmedsaif500 كتب : [ -> ]لو سمحت ممكن حد يساعدنى
محتاج الاكواد الى املىء بها treeviewer من قاعده بيانات SQL SERVER
هل البيانات بالشكل الى فى الصورة تنفع بهذا الشكل ل Treeviewer ?

ممكن حد يدينى مصدر اتعلم منه ؟ ..
انا وجدت شرح لكن متطلب اكواد للحسابات Integer مش قابل معايا String

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim dt As New DataTable

        Dim c1 As New DataColumn("acc_name",Gettype(System.String))

        Dim c2 As New DataColumn("acc_parent",Gettype(System.String))

        dt.Columns.AddRange({c1,c2})

        dt.LoadDataRow(New Object() {"Assets", ""}, True)

        dt.LoadDataRow(New Object() {"Liabilities", ""}, True)

        dt.LoadDataRow(New Object() {"Expense", ""}, True)        

        dt.LoadDataRow(New Object() {"Fixed Assets", "Assets"}, True)

        dt.LoadDataRow(New Object() {"Building", "Fixed Assets"}, True)

        dt.LoadDataRow(New Object() {"Instructor1", "Building"}, True)

        dt.LoadDataRow(New Object() {"Instructor2", "Building"}, True)

        For i = 0 To dt.Rows.Count -1

            FillTreeviewByKey(dt(i)(0),dt(i)(1))

        Next

    End Sub

    Sub FillTreeviewByKey(txt$,key$)            

        Try

            Me.TreeView1.Nodes.Find(key,True)(0).Nodes.Add(txt)

        Catch ex As Exception

            Me.TreeView1.Nodes.Add(txt,txt)

        End Try

    End Sub

انا شاكر ليك جدا على الكود لكن انا ملاحظ حضرتك اضفت جزىء ال Assests والخ يدويا
احتاج ان تكون ديناميكية بالكامل بشكل اوتامتيك اخى الحبيب بالطبع هزيد حسابات اخرى
هل ممكن ذلك ؟
شاكل رليك جدا

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Àhmedsaif500

Samir Ibrahim

Àhmedsaif500