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

استعملت هذا الكود للبحث عن بيانات معينة ضمن داتا قرايد فيو  
  Dim srch As String
        Dim irowindex As Integer
        '  Dim strl As Integer
        srch = TextBox3.Text
        DGV_acounts.ClearSelection()
        For i As Integer = 0 To DGV_acounts.Rows.Count - 1
            If DGV_acounts.Rows(i).Cells(2).Value IsNot Nothing Then
                If DGV_acounts.Rows(i).Cells(0).Value.ToString.ToUpper.StartsWith(srch.ToUpper) Then
                    DGV_acounts.Rows(i).Selected = True
                    DGV_acounts.RowsDefaultCellStyle.SelectionBackColor = Color.Blue
                    irowindex = DGV_acounts.SelectedCells.Item(0).Value
                    'MessageBox.Show(irowindex)
                    Exit For
                End If
            End If
        Next 

المشكلة كالتالي  
الكود يتم تنفيذه ويقف على السطر المطلوب  
لكن لو كان حجم البيانات كبير ولا يظهر ضمن الاداة الا بالنزول بالسهم لاسفل  , اذا كان الصف المطلوب غير ظاهر , فانه لن يظهر ضمن الشاشة  
اريد البرنامج بعد تنفيذ الكود اظهار هذا السطر وليس تظليله وهو غير مرئي  

مش عارف اذا وصلت المعلومة ولا لا

لجعل سطر ضمن المجال المرئي استخدم الخاصية FirstDisplayedScrollingRowIndex

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

---

عندي سؤال هل يوجد خيار البحث عن التالي بنفس الطريقة

أولاً :
أخرج هذا التعريف من العملية وضعة في مكان عام
Dim irowindex As Integer

وعند بداية العملية
في البداية وقبل الدخول إلى الحلقة For اسأل عن irowindex
إذا كانت أكبر من (فقط) عدد عناصر الداتا قريد فيو 

إذا صحيح إذن اجعل irowindex = 0




ثانياً :
For i As Integer = 0 To DGV_acounts.Rows.Count - 1
استبدلها بـ
For i As Integer = irowindex To DGV_acounts.Rows.Count - 1


ثالثاً :
irowindex = DGV_acounts.SelectedCells.Item(0).Value
إستبدلها بـ
irowindex = i





في النهاية سيصبح رز البحث هو نفسة زر ابحث عن التالي 
لأن الحلقة ستبداء من آخر irowindex وليس من الصفر



سلام...

حاولت وما زبطش يا ريت مثال من فضلك

ارفق مثال أو المشروع أفضل للتعديل