28-01-18, 01:28 PM
استعملت هذا الكود للبحث داخل داتا قرايد فيو بدون الفرز من الجداول
' 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
ما أريده الان ان يبحث البرنامج عن النتيجة التالية بالضغط على نفس الزر , هل هذا ممكن , وشكرا لكم مقدما
' 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
ما أريده الان ان يبحث البرنامج عن النتيجة التالية بالضغط على نفس الزر , هل هذا ممكن , وشكرا لكم مقدما