[ِAbou Sama]

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

محتاج كود لعدم تكرار البيانات علي الداتا جريد فيو

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

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

[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

[ِAbou Sama]

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

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

---

تسلم اخي تم حل الخلل الخطأ كان عندي شكرا" جزيلا" لك وعلي مجهودك جزاك الله خير

[العواد الصغير]

(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

[Osama_NY]

(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