+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] منع تكرار ذات القيمة بالليست فيو ؟ (/showthread.php?tid=505)
منع تكرار ذات القيمة بالليست فيو ؟ - kafi2030 - 12-10-13
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتهكيف لي ان امنع تكرار ذات القيمة بالليست فيو
الحل الذي فكرت به
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
ارجو المساعدة في تعديل الكود
والف شكر
RE: منع تكرار ذات القيمة بالليست فيو ؟ - kafi2030 - 12-10-13
السلام عليكم
بعد صبر ،وعدة محاولات، وجدت الحل
كود :
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وقد احببت ان اضعه حتى يستفيد منه الاخوة
والسلام عليكم