dropdown list

1- اولا تحدد البيانات التي تريد اضافتها للقائمة

DDL.DataSource=Dataset

2-ثم تحدد العمود الذي تريد أن يظهر في القائمة والعمود الذي تريد استخدام القيهم وذلك لإستخدامها في قاعدة البيانات

DDL.DataTextField="Name"

DDL.DataValueField="ID"

3- ثم تعمل تحديث للقائمة

DDL.DataBind()

هذي طريقة اخرى بإستخدام Loop

Dim con As New SqlClient.SqlConnection("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=support;Data Source=LAPTOP")
Dim Adap As New SqlClient.SqlDataAdapter("Select groupname from TSSystemGroups", con)
Dim datasetse As New DataSet
Dim s As Integer

con.Open()
Adap.Fill(datasetse)
con.Close()

For s = 0 To datasetse.Tables(0).Rows.Count - 1
	DropDownLists1.Items.Add(datasetse.Tables(0).Rows(s).Item(0).ToString)
Next

وطريقة إضافة اي بيانات أخرى بشكل يدوي

DropDownLists1.Items.Add("1بسم الله")
DropDownLists1.Items.Add("2بسم الله")
DropDownLists1.Items.Add("3بسم الله")
DropDownLists1.Items.Add("4بسم الله")

تشكروا أخواني وشكر خاص للأخ kabrs

عزيزي الأخ kabrs الطريقة الي أنت كاتبها انا جربتها من قبل ولا نفعت يعطيني أول قيمه بس وعندما اقوم بفحص العداد عن طريق عرضه في lblerror أجده لم يتجاوز الرقم 1

	  Dim i As Int16
		If Not Me.IsPostBack Then
			Dim con As New SqlClient.SqlConnection("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=support;Data Source=LAPTOP")
			Dim Adap As New SqlClient.SqlDataAdapter("Select groupname from TSSystemGroups", con)
			Dim datasetse As New DataSet
			Try
				con.Open()
				Adap.Fill(datasetse)

				For i = 0 To datasetse.Tables(0).Rows.Count - 1
					dl.Items.Add(datasetse.Tables(0).Rows(0).Item(i))
					dl.DataBind()
				Next i
			Catch ex As Exception
				lblerror.Text = "error"
			Finally
				con.Close()
			End Try
			lblerror.Text = i
		End If

بخصوص

DropDownLists1.Items.Add(datasetse.Tables(0).Rows(s).Item(0).ToString)

tostring ماترضى تنكتب

عجزني حلها سهرت على هالدروب ليست حوالي 4 ساعات ولا لقيت حل معقوله مثل هالأمر يعطلني اكثر من ساعة *-) أجل كيف مع البرامج الكبيرة

لقيت المشكلة غيرت الـ rows(0) - rows(1) - ,......

طلعت النتائج صح

\عرفت وين المشكله انا الحين قاعد اسحب اكثر من row من الـ table مو item من نفس الـ row

شكراً حبيت اضيف الخطأ وين علشان اللي يوقع بعدي يعرف من وين

شاكر مساعدتكم

اخي الساحر

نعم انت المفروض تسحب البيانات من الصفوف ROW وليس Item أو لو ركزت في الكود السابق كان لاحظتها

datasetse.Tables(0).Rows(s).Item(0).ToString

لاحظ S

اقتباس

tostring ماترضى تنكتب

ممكن ما تكتبها و هي تكتب تلقائي في الاصدار الاخير VS2005

بس لي ملاحظة في الكود السابق

في حالة استخدامك لي Loop لإضافة البيانات لا تحتاج إلى ربط البيانات بإستخدام DataBind

يعني يمكن الاستغناء عنها

DataBind تستخدم للربط مع DataSource

اقتباس

ayman-hala

1- اولا تحدد البيانات التي تريد اضافتها للقائمة

DDL.DataSource=Dataset

2-ثم تحدد العمود الذي تريد أن يظهر في القائمة والعمود الذي تريد استخدام القيهم وذلك لإستخدامها في قاعدة البيانات

DDL.DataTextField="Name"

DDL.DataValueField="ID"

3- ثم تعمل تحديث للقائمة

DDL.DataBind()

وبالتوفيق

يسلم راسك حبيبي

بكمل مشروعي واذا احتجت شي برجعلك