[Àhmedsaif500]

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


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

[Samir Ibrahim]

(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

[Àhmedsaif500]

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