• 0
ebraheem-w

طريقة عمل هذا الكود

سؤال

Private Sub Form_Load()

Dim DBS As Database

Dim rst As Recordset

Dim nodX As Node

Set DBS = CurrentDb

Set rst = DBS.OpenRecordset("custmer", dbOpenDynaset)

Set nodX = TreeView1.Nodes.Add(, , "A", "الدليل")

With rst

Do While Not .EOF

Set nodX = TreeView1.Nodes.Add("A" & CStr(Nz(!ParAcc)), tvwChild, "A" & CStr(!AccID), CStr(!AccID) & ":" & !ArAccDes)

nodX.EnsureVisible

.MoveNext

Loop

End With

rst.Close

Set DBS = Nothing

For Each nodX In TreeView1.Nodes

nodX.Expanded = False

nodX.Sorted = True

Next

End Sub

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

اخي الفاضل

 

مالذي تريد الإستيضاح عنه

 

الكود الذي قمت انت بوضعه هو خاص بالشجره  TreeView

 

post-15367-0-65824200-1374154341_thumb.g

 

 

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

 

http://arabteam2000-forum.com/index.php/topic/167380--/?hl=%2Bdim+%2Bnodx+%2Bnode

 

 

وهذا مثال على شجرة الحسابات

 

Tree_view.zip

 

 

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .