السلام عليكم ورحمة الله
اريد كود عدم تكرار الأصناف فى DropDownList1
حاولت استخدام الكود التالى ولكن لم ينجح
If DropDownList2.Items.Contains(dr0.Item("BgName")) Then
انا عايز احمل داخل DropDownList1 اسماء من عمود معين - وفى منها اسماء مكرره - ولا اريد ان يكرر الاسماء فى DropDownList1
(07-09-18, 01:11 AM)محمد ابوخليل كتب : [ -> ]انا عايز احمل داخل DropDownList1 اسماء من عمود معين - وفى منها اسماء مكرره - ولا اريد ان يكرر الاسماء فى DropDownList1
ضع كود تحميل الاصناف ؟
كود :
DropDownList2.DataBind()
DropDownList2.Items.Clear()
Dim cmd0 As New SqlCommand
Dim dr0 As SqlDataReader
If con.State = ConnectionState.Open Then con.Close()
con.Open()
cmd0.Connection = con
cmd0.CommandType = CommandType.Text
cmd0.CommandText = "SELECT * FROM Categories order by CategorieName;"
dr0 = cmd0.ExecuteReader
Do While dr0.Read
If dr0.Item("CategorieName").ToString <> "" Then
If DropDownList2.Items.Contains(dr0.Item("CategorieName")) Then
Else
DropDownList2.Items.Add(dr0.Item("CategorieName"))
End If
End If
Loop
dr0.Close()
con.Close()
اهلاً اخي محمد ابوخليل
بما انك تقوم بعمل استعلام لجلب عمود الاسماء فقط
فكل ما عليك هو جعل الاستعلام بهذا الشكل
كود :
SELECT CategorieName FROM Categories GROUP BY CategorieName ORDER BYCategorieName
وهو سيقوم بتلقاء نفسه عرض الاسماء بدون تكرار
وكل ما عليك استخدام
كود :
DropDownList2.Items.Add(dr0.Item("CategorieName"))
دون شرط التحقق لهذا
كود :
DropDownList2.Items.Contains(dr0.Item("CategorieName"))
تحياتى لك
وتمنياتى لك التوفيق
كل اللي تحتاجه هذا الكود فقط .
كود :
Dim dp As New SqlDataAdapter("select distinct CategorieName from Categories order by CategorieName", con)
Dim dt As New DataTable
dp.Fill(dt)
DropDownList2.DataSource = dt
DropDownList2.DataTextField = "CategorieName"
DropDownList2.DataBind()
شكرا لكم ، وجزاكم الله خير .. تم حل المشكلة
الشكر لله
تحياتى لك
وتمنياتى لك التوفيق