Dynamically Build Java Script Menu

أرجو المساعدة ولو بأفكار ولكم جزيل الشكر

يمنك تجربة ajax menu control توجد علي هذا الموقع

http://www.essentialobjects.com

السلام عليكم

تحتاج فقط إلى جدول واحد فقط ... سأعطيك الفكرة بشكل سريع

جدول يحتوي على الحقول التالية :

IDCategory

Title

Url

Levels

group

1 - بعد ذلك ضع قيمة افتراضية لي URL لتحدد ما إذا كانت رابط ام توسيع لي SubManu

2- قيمة group تساوي قيمة IDCategory لجميع الروابط التابعة لها .. مثلاً قيمة IDCategory لأحد الصفوف وهي لتعريف SubCategory

= 5 تصبح قيمة group لجميع الروابط التابعة لهذا المجموعة = 5

مثال اخر قيمة الحقول الخاصة بتعريف مجموعة كتالي :

IDCategory = 5

Title = Account

Url= Expand

Levels = 0

group =0

وقيم احد الحقول التابعة لهذه المجموعة كتالي

IDCategory = 10

Title = Users

Url = http:\\yourLink

Levels = 1

group = 5

لا حظ قيمة group تساوي IDCategory

لتعبئة البيانات في Menu تحتاج أولاً إلى ترتيب البيانات عند الاستعلام حسب قيمة Levels

ثم تعبئة البيانات على مرحلتين : الاولى تبعئة المجموعات فقط و الثانية تبعئة قيم الروابط التابعة لهذه المجموعات

بفرض تم الاستعلام واسناد القيم في DataSet

بنفس ترتيب الحقول وهي مربتة

Title=0

Url=1

IDCategory=2

Levels=3

group=4

يصبح الكود كتالي :

		For loops = 0 To DS.Tables(0).Rows.Count - 1
			''
			Dim NewMenuItem As New MenuItem
			NewMenuItem.Text = DS.Tables(0).Rows(loops).Item(0).ToString	'//Title'
			NewMenuItem.NavigateUrl = DS.Tables(0).Rows(loops).Item(1).ToString '//url'
			NewMenuItem.Value = DS.Tables(0).Rows(loops).Item(2).ToString	'//IdCategory'
			''
			If DS.Tables(0).Rows(loops).Item(3).ToString = "0" Then		'//Levels'

					Menus.Items.Add(NewMenuItem)

			ElseIf DS.Tables(0).Rows(loops).Item(3).ToString = "Expand" Then
				Try
					Dim ChildMenuItem As MenuItem = Menus.FindItem(DS.Tables(0).Rows(loops).Item(4).ToString)	'//group'
					ChildMenuItem.ChildItems.Add(NewMenuItem)
				Catch ex As Exception

				End Try
			End If
			''
		Next
		''
		''
		''
		''	بعد اللوب السابق تم إضافة جميع المجموعات فقط 
		''
		''
		''
		For loops = 0 To DS.Tables(0).Rows.Count - 1
			If Not DS.Tables(0).Rows(loops).Item(3).ToString = "Expand" And Not DS.Tables(0).Rows(loops).Item(0).ToString = "0" Then
			''
			Dim NewMenuItem As New MenuItem
			NewMenuItem.Text = DS.Tables(0).Rows(loops).Item(0).ToString	'//Title'
			NewMenuItem.NavigateUrl = DS.Tables(0).Rows(loops).Item(1).ToString '//url'
			NewMenuItem.Value = DS.Tables(0).Rows(loops).Item(2).ToString	'//IdCategory'
			''
			Try
				Dim ChildMenuItem As MenuItem = Menus.FindItem(DS.Tables(0).Rows(loops).Item(4).ToString)	'//group'
				ChildMenuItem.ChildItems.Add(NewMenuItem)
			Catch ex As Exception

			End Try
					''
			End If
		Next
		''

بالتوفيق

أشكرك على الإهتمام جاري التجريب