12-10-13, 08:48 AM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتهكيف لي ان امنع تكرار ذات القيمة بالليست فيو
الحل الذي فكرت به
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
ارجو المساعدة في تعديل الكود
والف شكر