[تنبيه - عنوان غير مناسب : ]ارجو المساعدة فى اسرع وقت جزاكم الله خيرا

يا أخوانى هوه انا ليه لما باجى اطلب مساعده من حد محدش بيساعدنى

انا كل ما اعمل موضوع اطلب فيه المساعده محدش يرد عيله

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

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

الكود كما هو ناقص و لا يدل على مكان المشكلة. مثلاً sender (و هو في الغالب سبب المشكلة) لم تخبرنا من أين أتيت به.

يا اخى انا اقوم بملىء محتويات شجرة من قاعدة البيانات

وكل نود اضيفة للشجرة يجب ان اعمل له حدث كليك ففى حدث الكليك ارسل له اسم النود لاعمل به جملة الاستعلام

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

Sub TNName_click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Dim cmdRC As New SqlCommand

Dim drRC As SqlDataReader

cmdRC.Connection = cn

cmdRC.CommandType = CommandType.Text

Dim s As String

s = DirectCast(sender, TreeView).SelectedNode.Text

cmdRC.CommandText = "Select * From Service where CategoryID=(select CategoryID from Categories where CategoryNameAR='" + s + "')"

cn.Open()

drRC = cmdRC.ExecuteReader

Dim z As Integer

For z = 1 To 10

TNNameD = "TreeNodeD" + z.ToString + ""

While drRC.Read = True

TN.Nodes.Add(drRC("CategoryNameAR"))

End While

Next

drRC.Close()

cn.Close()

End Sub

هذا هوه الحدث اللى انا أنشأه

ارجو قرأتة

وقل لى الخطأ اين

 Sub TNName_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
		Dim cmdRC As New SqlCommand
		Dim drRC As SqlDataReader
		cmdRC.Connection = cn
		cmdRC.CommandType = CommandType.Text
		Dim s As String
		s = DirectCast(sender, TreeView).SelectedNode.Text
		cmdRC.CommandText = "Select * From Service where CategoryID=(select CategoryID from Categories where CategoryNameAR='" + s + "')"
		cn.Open()
		drRC = cmdRC.ExecuteReader
		Dim z As Integer
		For z = 1 To 10
			TNNameD = "TreeNodeD" + z.ToString + ""
			While drRC.Read = True
				TN.Nodes.Add(drRC("CategoryNameAR"))
			End While
		Next
		drRC.Close()
		cn.Close()
	End Sub

المشكلة تظهر عندما لا تكون أي TreeNode مختارة وقت الحدث Click. هذا كود معدل يحل هذه المشكلة لكنني أنصحك بوضعه داخل دالة الحدث AfterSelect.

	Private Sub TreeView1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TreeView1.Click
		Dim tvSender As TreeView
		Dim curNode As TreeNode
		tvSender = DirectCast(sender, TreeView)
		curNode = tvSender.SelectedNode()
		If curNode Is Nothing Then
			MsgBox("المرجو اختيار عنصر من القائمة.")
		Else
			' الكود المراد تشغيله
		End If
	End Sub

الأخ الكريم/الأخت الكريمة

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

مرحباً بكم في منتدى الفريق العربي للبرمجة

نود تنبيهك أن العنوان غير مناسب.

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

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

قواعد المشاركة

/index.php?showtopic=29343

شاكرين لكم حُسن تعاونكم

السلام عليكم

اولا ارجو ان اشكر الاخ محمد رضى كثيرا على مساعدته لى وايضا الاخ عضو الشرف للرد على ومحاولة مساعدتى

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

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

وجزاكم الله خيرا على تنبيهى

ثبتكم الله وحفظكم وشرح صدوركم

قولو امين

السلام عليكم

خوكم فى الله عمر