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

نسخة كاملة : البحث مع داتا قرايد فيو مهم جدا
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
استعملت هذا الكود للبحث داخل داتا قرايد فيو بدون الفرز من الجداول  
 '  Dim irowindex As Integer
        'تم الاعلان عنه في القسم العام
        If irowindex > (DataGridView1.Rows.Count - 1) Then
            irowindex = 0
        End If

        Dim srch As String
      
        srch = TextBox12.Text
        DGV_units.ClearSelection()

        For i As Integer = irowindex To DGV_units.Rows.Count - 1
            If DGV_units.Rows(i).Cells(2).Value IsNot Nothing Then
                If DGV_units.Rows(i).Cells(2).Value.ToString.ToUpper.StartsWith(srch.ToUpper) Then
                    DGV_units.Rows(i).Selected = True
                    DGV_units.RowsDefaultCellStyle.SelectionBackColor = Color.Blue
                    irowindex = i
                    DGV_units.FirstDisplayedScrollingRowIndex = (i)
                    Exit For
                End If
            End If
        Next

ما أريده الان ان يبحث البرنامج عن النتيجة التالية بالضغط على نفس الزر  , هل هذا ممكن   , وشكرا لكم مقدما
لم يعمل البحث فقط لمرة واحدة  
المطلوب هو عندي فهرس اصناف  مثلا جوال 1 , جوال 2 , جوال  3 وهكذا  
الضغط الاول سيقف على اول نتيجة وفي الضغطة الثانية التالي لها وهكذا  ...... 
انا شفت الفكرة في برنامج معمول بلغة دلفي
اولا
ضع متغير (I) في العام (اول الفورم مش في نفس BUTTON)
PHP كود :
Dim i As Integer 

ضع هذا الكود في BUTTON  
PHP كود :
On Error Resume Next
        DGV_units
.ClearSelection()
 
       For i i To DGV_units.Rows.Count 1
            If DGV_units
.Rows(i).Cells(3).Value.ToString.Contains(TextBox12.TextThen
                DGV_units
.Rows(i).Selected True
                DGV_units
.FirstDisplayedScrollingRowIndex i
                Exit 
For
 
           End If
 
       Next
        If Not i 
DGV_units.Rows.Count 2 Then
            i 
+= 1
        Else
            i 
0
        End 
If 
مع تغير رقم العمود البحث بالرقم الى عندك
يا ريت حد يعمله مثال لانه مش زابط خالص
اتفضل اخي 
[attachment=16946]
تسلم اخي محمود صالح المثال تمام ميه ميه