كيف يمكن عمل شجرة حسابات

[Dream_Works]

السلام عليكم

لقد قرأت عدة مواضيع في المنتدى عن كيفية عمل شجرة الحسابات ... و لكنها تميل الى وضع أمثلة جاهزة ... و لكن أرجو شرح العملية كيف تتم بشيء من التفصيل

[Dream_Works]

[left]Private Sub Form_Load()
  Dim dbs As Database
  Dim rst As Recordset
  Dim nodX As Node
  
  Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset("ItemsTreeAll", dbOpenDynaset)
  
  Set nodX = TreeView1.Nodes.Add(, , "A", "Shoot")
  With rst
    Do While Not .EOF
      Set nodX = TreeView1.Nodes.Add("A" & CStr(Nz(!Parent)), tvwChild, "A" & CStr(!Code), CStr(!Code) & ".." & !ADescription)
      nodX.EnsureVisible
      .MoveNext
    Loop
  End With
  
  rst.Close
  Set dbs = Nothing
End Sub[/left]

هذا الكود موجود في ملف الأخ أبو هادي .... المرفق في هذا الموضوع

http://www.officena.net/ib/index.php?showt...mp;hl=tree+view

أرجو من أي شخص فاهم شجرة الحسابات يشرح الكود اللي داخل اللوب على الأقل

بالتحديد كيف يمكن تحديد كيفية إظهار البيانات ووضعها في قسم معين من الشجرة ... لماذا لم يتم وضع كل البيانات في فرع واحد ؟

تم تعديل يناير 31, 2007 بواسطه Dream_Works