[sooriaty03]

ابراهيم كتب :

انتا محتاج تعمل لوب للبحث داخل التري وكمان لوب جوه كل عضو بيحتوى على اعضاء تانيه داخل الترى
وده هيكون بالشكل ده
Dim no As TreeNode
For Each no In TreeView1.Node
If no.Text = Textbox1.Text then MsgBox("Exist") :Exit sub
If no.Nodes.Count > 0 Then
Dim Cnod As TreeNode
For Each cnod In no.Nodes
If Cnod.Text = Textbox1.Text then MsgBox("Exist") :Exit sub
Next
End If
Next

[COLOR="#008000"]
السلام عليكم ورحمة الله وبركاته

بارك الله فيك أخي الكريم
ولكن هناك ملاحظة صغيرة على الكود
هو أنه سيبحث في الرتبة الأولى والثانية فقط
فماذا لو كان في الأداة رتبة ثالثة ورابعة وخامسة ... إلخ
فالكود بحاجة إلى تعديل ليشمل جميع الرتب الموجودة [/COLOR]