[kafi2030]

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

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

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

الحل الذي فكرت به
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

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

[kafi2030]

السلام عليكم

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

كود :

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

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