منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - منع تكرار ذات القيمة بالليست فيو ؟

بسم الله الرحمن الرحيم

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

كيف لي ان امنع تكرار ذات القيمة بالليست فيو

الحل الذي فكرت به
1- فحص القيمة المدخلة، قبل تسجيلها الى قاعدة البيانات، وذلك حتى اضمن ان كل مايتم تحميله الى الليست فيو ......لن يكون فيه قيم مكررة

2- قمت بكتابة الكود الذي يقارن القيمة المدخلة مع القيم المخزنة بقاعدة البيانات

كود :

Dim x As String

        Dim Count_Item As Integer

        Dim xx = From u In db.Fixed_Notes Select u

        Count_Item = xx.Count()

        For i = 1 To Count_Item

            x = xx.First.Note

            If txt_Note.Text = x Then

                lbl_Caution.Visible = True

                lbl_Caution.Text = "اســـم الملاحظــــــة مكــــرر !!"

                Panel2.BackColor = Color.Red

                txt_Note.Focus()

                Exit Sub

            End If

        Next

الا انني بصراحة، لا اعرف ان احضر سوى اول قيمة مخزنة بقاعدة البيانات

كود :

x = xx.First.Note

اي انني لا استطيع معرفة كل قيمة حسب المتغير i

ارجو المساعدة في تعديل الكود
والف شكر

السلام عليكم

بعد صبر ،وعدة محاولات، وجدت الحل

كود :

Dim List = From B In db.Fixed_Notes Select B

        For Each x In List

            If txt_Note.Text = x.Note Then

                lbl_Caution.Visible = True

                lbl_Caution.Text = "اســـم الملاحظــــــة مكــــرر !!"

                Panel2.BackColor = Color.Red

                txt_Note.Focus()

                Exit Sub

            End If

        Next

وقد احببت ان اضعه حتى يستفيد منه الاخوة
والسلام عليكم

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

kafi2030

kafi2030