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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : كود عدم تكرار البيانات بالداتا جريد فيو (/showthread.php?tid=14202)

كود عدم تكرار البيانات بالداتا جريد فيو - ِAbou Sama - 22-12-15

السلام عليكم ورحمة الله وبركاته
محتاج كود لعدم تكرار البيانات علي الداتا جريد فيو
المشروع عباره عن فاتورة ومحتاج لما يتكرر الكود في الداتا جريد فيو يظهر رساله للمستخدم لقد تم تسجيل هذا الصنف بالفاتوره وعمل Focus
علي الصف اللي به هذا الكود

ولكم جزيل الشكر

RE: كود عدم تكرار البيانات بالداتا جريد فيو - hamada558 - 22-12-15

جرب وخبرني
كود :
Dim ri =
    From r As DataGridViewRow In DataGridView1.Rows
    Where r.Cells(0).Value = TextBox1.Text
    Select r.Index

If ri.Count > 0 Then
    DataGridView1.ClearSelection()
    DataGridView1.Rows(ri(0)).Selected = True
    DataGridView1.FirstDisplayedScrollingRowIndex = ri(0)
    Return
End If


RE: كود عدم تكرار البيانات بالداتا جريد فيو - ِAbou Sama - 22-12-15

تسلم اخي الكريم الكود فعلا" قام بما اريد بالضبط لكن هناك مشكله بعد تنفيد الكود تظهر رسالة الخطأ هذه الموجوده بالرابط

ويتوقف المشروع
http://prntscr.com/9h12zt
منتظر ردك جزاك الله خيرا"
تسلم اخي تم حل الخلل الخطأ كان عندي شكرا" جزيلا" لك وعلي مجهودك جزاك الله خير

RE: كود عدم تكرار البيانات بالداتا جريد فيو - العواد الصغير - 29-12-15

(22-12-15, 02:20 AM)hamada558  اين نضع هذا الكود كتب : جرب وخبرني
كود :
Dim ri =
   From r As DataGridViewRow In DataGridView1.Rows
   Where r.Cells(0).Value = TextBox1.Text
   Select r.Index

If ri.Count > 0 Then
   DataGridView1.ClearSelection()
   DataGridView1.Rows(ri(0)).Selected = True
   DataGridView1.FirstDisplayedScrollingRowIndex = ri(0)
   Return
End If


RE: كود عدم تكرار البيانات بالداتا جريد فيو - Osama_NY - 04-12-20

(22-12-15, 02:20 AM)اين اكتب هذا الكود كتب :
كود :
Dim ri =
   From r As DataGridViewRow In DataGridView1.Rows
   Where r.Cells(0).Value = TextBox1.Text
   Select r.Index

If ri.Count > 0 Then
   DataGridView1.ClearSelection()
   DataGridView1.Rows(ri(0)).Selected = True
   DataGridView1.FirstDisplayedScrollingRowIndex = ri(0)
   Return
End If