عرض المواد عن طريق Tree View

مساء الخير

هل السؤال صعب لهذه الدرجة أم إنه غير مفهوم

و الشكر لكل من حاول المساعدة

هل السؤال صعب لهذه الدرجة أم إنه غير مفهوم

مفهوم و لكن يحتاج لمعطيات أكثر

أرفق ما تريد عمله و سوف نضع لك مثال .

صباح الخير

ما أريده هو كالآتي

لدي برنامج مستودعات و قد قمت بتقسيم المواد الموجودة ضمن المستودع إلى مجموعات ، إذا كل مجموعة تحوي عدة مواد

فأريد أن أقوم بإظهار لائحة بهذه المجموعات و المواد الموجودة فيها عن طريق tree view و أريد كلما قمت بإضافة أو حذف مادة من هذه المواد أن يتم تحديث tree view بشكل تلقائي

و إذا كان من غير الممكن القيام بما أريده عن طريق tree view فهل من طريقة أخرى

و هذه المعطيات التي أريدها

المجموعة الأولى اسمها group1 و تحوي فيها product1,product2, product3

المجموعة الثانية اسمها group2 و تحوي فيها product4,product5

المجموعة الثالثة اسمها group3 و تحوي فيها prodcut6,product7,product8

و أريد إظهارهم على الشكل التالي

group1

....product1

....product2

....product3

group2

....product4

....product5

group3

product6

product7

product8

و في حال تم الإضافة أو الحدث يجب أن يتم التحديث تلقائيا

أتمنى أن أكون قد أوضحت فكرتي

و شكرا لك على السماعدة

اظن ان هذا يفي بالغرض

tree.zip

صباح الخير

إلى الأخ alesayi هل يمكن أن تشرح لي المثال الذي وضعته

و أنا شاكرة جداً على المساعدة

أولاً: أود أن أحييك على نشاطك الظاهر من خلال الأسئلة

ثانياً: المثال التالي يوضح الفكرة ببساطة، يمكنك الاعتماد عليه حتى يتفضل الأخ صاحب المرفق بالتوضيح:

- نقوم بإذافة فرع Node لكل مجموعة بالكود التالي:

TreeView1.Nodes.Add Key:="group1", Text:="group1"

- ثم نقوم بإضافة Node لكل منتج كالتالي:

TreeView1.Nodes.Add Key:="product1", Text:="product1", relative:="group1", relationship:=tvwChild

مع التحية

هل من الممكن توضيح الأفكار و شرحها ، للأسف أنا استعمل treeview للمرة الأولى لذلك أجد صعوبة في فهم الفكرة

و لكم كل الشكر

Dim str1 As String, str2 As String
 If r.State = 0 Then r.Open "select * from Account where Account_Belong='رئيسي'", cn, adOpenDynamic, adLockOptimistic
Do While Not r.EOF
TVAccount.Nodes.Add , , r(1), r(1), 1, 1
r.MoveNext
Loop
Set r1 = New ADODB.Recordset
r1.Open "select * from Account where Account_Belong<>'رئيسي'", cn, adOpenDynamic, adLockOptimistic
Do While Not r1.EOF
str1 = r1(2)
str2 = r1(1)
TVAccount.Nodes.Add str1, tvwChild, str2, str2, 1, 2
r1.MoveNext
Loop

عفوا على التاخير ولكن ارجو ان تنال الفائدة

تكمن الفكرة في اضافة عمود في قاعدة البيانات Account_Belong حتى يستخدم اب للفرع

ال Loop الاول

لاضافة ال group الرئسية الاولى

اي كل ماهو رئيسي في كولوم account_belong

ال loop الثانية

لاضافة الفروع

str1 اسم المجموعة اوالاب account _belong في قاعدة البيانات

str2 اسم الحساب او الصنف item_nameفي قاعدة البيانات

tvwchild هي العلاقة بين str1 and str2 علاقة رئيسي وفرعي

هذا المرفق

tree.zip