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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم برمجة وتطوير المواقع (http://vb4arb.com/vb/forumdisplay.php?fid=51)
+--- قسم : قسم ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=52)
+---- قسم : قسم اسئلة ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=53)
+---- الموضوع : عدم تكرار الأصناف (/showthread.php?tid=26396)

عدم تكرار الأصناف - محمد ابوخليل - 07-09-18

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

اريد كود عدم تكرار الأصناف فى DropDownList1

حاولت استخدام الكود التالى ولكن لم ينجح

If DropDownList2.Items.Contains(dr0.Item("BgName")) Then

RE: عدم تكرار الأصناف - محمد ابوخليل - 07-09-18

انا عايز احمل داخل  DropDownList1 اسماء من عمود معين - وفى منها اسماء مكرره - ولا اريد ان يكرر الاسماء فى DropDownList1

RE: عدم تكرار الأصناف - حريف برمجة - 07-09-18

(07-09-18, 01:11 AM)محمد ابوخليل كتب : انا عايز احمل داخل  DropDownList1 اسماء من عمود معين - وفى منها اسماء مكرره - ولا اريد ان يكرر الاسماء فى DropDownList1

ضع كود تحميل الاصناف ؟

RE: عدم تكرار الأصناف - محمد ابوخليل - 07-09-18

كود :
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()


RE: عدم تكرار الأصناف - elgokr - 07-09-18

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

بما انك تقوم بعمل استعلام لجلب عمود الاسماء فقط
فكل ما عليك هو جعل الاستعلام بهذا الشكل
كود :
SELECT CategorieName FROM Categories GROUP BY CategorieName ORDER BYCategorieName

وهو سيقوم بتلقاء نفسه عرض الاسماء بدون تكرار
وكل ما عليك استخدام
كود :
DropDownList2.Items.Add(dr0.Item("CategorieName"))

دون شرط التحقق لهذا 
كود :
DropDownList2.Items.Contains(dr0.Item("CategorieName"))


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


RE: عدم تكرار الأصناف - حريف برمجة - 07-09-18

كل اللي تحتاجه هذا الكود فقط .


كود :
 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()


RE: عدم تكرار الأصناف - محمد ابوخليل - 07-09-18

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

RE: عدم تكرار الأصناف - elgokr - 08-09-18

الشكر لله

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