تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
البحث مع داتا قرايد فيو مهم جدا
#1
استعملت هذا الكود للبحث داخل داتا قرايد فيو بدون الفرز من الجداول  
 '  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

ما أريده الان ان يبحث البرنامج عن النتيجة التالية بالضغط على نفس الزر  , هل هذا ممكن   , وشكرا لكم مقدما
الرد }}}
تم الشكر بواسطة:
#2
لم يعمل البحث فقط لمرة واحدة  
المطلوب هو عندي فهرس اصناف  مثلا جوال 1 , جوال 2 , جوال  3 وهكذا  
الضغط الاول سيقف على اول نتيجة وفي الضغطة الثانية التالي لها وهكذا  ...... 
انا شفت الفكرة في برنامج معمول بلغة دلفي
الرد }}}
تم الشكر بواسطة:
#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 
مع تغير رقم العمود البحث بالرقم الى عندك
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد }}}
تم الشكر بواسطة:
#4
يا ريت حد يعمله مثال لانه مش زابط خالص
الرد }}}
تم الشكر بواسطة:
#5
اتفضل اخي 

.rar   WindowsApplication10.rar (الحجم : 74.38 ك ب / التحميلات : 43)
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد }}}
#6
تسلم اخي محمود صالح المثال تمام ميه ميه
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم