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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : محتاج مساعده بسيطه مع اداه Treevieewer (/showthread.php?tid=44423)

محتاج مساعده بسيطه مع اداه Treevieewer - Àhmedsaif500 - 01-12-22

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


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

RE: محتاج مساعده بسيطه مع اداه Treevieewer - Samir Ibrahim - 02-12-22

(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


RE: محتاج مساعده بسيطه مع اداه Treevieewer - Àhmedsaif500 - 04-12-22

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