منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

جرب وخبرني

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

ويتوقف المشروع
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

(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