[محمد ابوخليل]

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

اريد كود عدم تكرار الأصناف فى 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()

[elgokr]

اهلاً اخي  محمد ابوخليل

بما انك تقوم بعمل استعلام لجلب عمود الاسماء فقط

فكل ما عليك هو جعل الاستعلام بهذا الشكل

كود :

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()

[محمد ابوخليل]

شكرا لكم ، وجزاكم الله خير .. تم حل المشكلة

[elgokr]

الشكر لله

تحياتى لك

وتمنياتى لك التوفيق