اظهار اسم النود المتفرع منه

السلام عليكــم ورحمـة الله وبركاتــه ،،

استخدم الكود التالى

		If TreeView1.SelectedNode.Parent IsNot Nothing Then
			MsgBox(TreeView1.SelectedNode.Parent.Text)
		End If

GHOST2010 كتب:

السلام عليكــم ورحمـة الله وبركاتــه ،،

استخدم الكود التالى

		If TreeView1.SelectedNode.Parent IsNot Nothing Then
			MsgBox(TreeView1.SelectedNode.Parent.Text)
		End If

وعليكــم السـلام ورحمة الله وبركاتـه..

أخي العزيز

بالكود السابق لو ضغطت على اسم "ولد الولد" سيعطيك اسم "الولد" وليس اسم الأب

شكرا

السلام عليكــم ورحمـة الله وبركاتــه ،،

يبدو أننى فهمتك بطريقة خاطئة

حسنا ,, لنفرض أن الشجرة بهذا الشكل

أنت تريد عند الضغط على أى فرع من الفروع التى تندرج تحت الأب يظهر لك إسم الأب

إذاً فأنت تريد دائما أن تظهر اسم الـTreeNode الذى فى المستوى الثانى

أتمنى أن أكون قد فهمتك بصورة صحيحة هذه المرة :blink:

إذا كان الأمر كذلك فيمكنك استخدام الكود التالى

	Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
		If e.Node.Parent IsNot Nothing AndAlso e.Node.Parent IsNot TreeView1.Nodes(0) Then
			Dim node As TreeNode = e.Node.Parent
			While node.Parent IsNot TreeView1.Nodes(0)
				node = node.Parent
			End While
			MsgBox(node.Text)
		End If
	End Sub

فى انتظار النتيجة ,,

وعليكــم السـلام ورحمة الله وبركاتـه.

هذا هو المطلوب

جزاك الله خيرا، وزادك علما

بقى شيئا آخر أخي العزيز لو تفضلت به علي، وهو:

هل من الممكن إذا حذفت اسم "الأب" ينحذف معه أسماء الأولاد من الشجرة والداتا بيس

او حذفت اسم "الولد" ينحذف معه اسم "ولد الولد" من دون اسم "الأب" من الشجرة والداتا بيس

يعني السؤال بمعنى أبسط إذا حذفت الفرع ينحذف معه الأقل مستوى وليس الأكثر من الشجرة والداتا بيس

وجزاك الله خيرا

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

بالنسبة للشجرة فهى تفعل ذلك تلقائيا أى أنك عند حذف أحد الفروع فإنها تحذف الفروع التى تتبعه

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

GHOST2010 كتب:

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

بالنسبة للشجرة فهى تفعل ذلك تلقائيا أى أنك عند حذف أحد الفروع فإنها تحذف الفروع التى تتبعه

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

أخي العزيز

البرنامج مرفق

وجزاك الله خيرا

family_tree.rar

السلام عليكــم ورحمـة الله وبركاتــه ،،

أخي الكريم GHOST2010

لقد أضفت شيئا من الكود للحذف ولكنه غير محترف وبطيء فإذا تستطيع التعديل عليه

جزاك الله خيرا

family_tree2.rar

السلام عليكــم ورحمـة الله وبركاتــه ،،

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

بالنسبة للحذف فإليك الفكرة

أولا عليك إضافة حقل جديد فى الجدول الذى تعمل عليه بإسم BinPath من النوع Text بطول 255

عند الحفظ قم بحفظ ناتج هذه الدالة فى الحقل الجديد

بعد إتمام هذه الخطوات ستكون عملية الحذف سهلة جدا وسريعة جدا إن شاء الله حيث أنك ستقوم بالحذف بدلالة هذا الحقل

ملحوظة : أنا لا أتعامل مع الأكسس فقد تكون طريقة صياغة الجملة خاطئة لكن أتمنى أن تكون قد وضحت الفكرة

سؤال : لماذا لا تستخدم فئات الـADO.NET عند تعاملك مع قواعد البيانات فهى أسهل بكثير فى التعامل

إذا كانت الفكرة غير واضحة فأنا فى انتظارك إن شاء الله ,,

وعليكــم السـلام ورحمة الله وبركاتـه..

لقد حاولت ولم استطع ان أصل الى نتيجة، الرجاء تعديل المثال المرفق بالكود الذي كتبته

وشكرا