منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] كود بحث من فضلكم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كود بحث من فضلكم (/showthread.php?tid=18818)



كود بحث من فضلكم - CoderMM - 15-01-17

انا عامل مشروع لسنتر دروس
و عامل كود بحث عن طريق التحديد في الداتا جريد فيوو

هو حاليا شغال تمام و بيحدد الكلمة اللي ببحث عنها

بس المشكلة انه بيحدد صف واحد بس

بمعني لو عندي اتنين اسمهم محمد السيد
عاوز لما ابحث عن محمد السيد يعلم علي الاتنين مش واحد بس
و ده الكود اللي شغال بيه


        Dim str As String = ToolStripTextBox1.Text
        Try
            If Me.ToolStripTextBox1.Text.Trim(" ") = " " Then
            Else
                For i As Integer = 0 To StudentsDataGridView.Rows.Count - 1
                    For j As Integer = 0 To Me.StudentsDataGridView.Rows(i).Cells.Count - 1
                        If StudentsDataGridView.Item(j, i).Value.ToString().ToLower.StartsWith(str.ToLower) Then
                            StudentsDataGridView.Rows(i).DefaultCellStyle.SelectionForeColor = Color.DarkRed

                            StudentsDataGridView.CurrentCell = StudentsDataGridView.Rows(i).Cells(j)
                            Exit Try
                        End If
                    Next
                Next i
            End If
        Catch abc As Exception
            MessageBox.Show("Sorry!")
        End Try
    End Sub


أرجو الإفادة



RE: كود بحث من فضلكم - كفاح - 15-01-17

جرب هذا الكود 
PHP كود :
For As Integer 0 To DataGridView1.RowCount 1
            If DataGridView1
.Rows(i).Cells(1).Value Textbox1.Text Then
                DataGridView1
.Rows(i).Cells(1).Style.BackColor Color.Red
            End 
If
 
       Next 
Rows  << رقم الصف
Cells << رقم العمود المراد البحث فيه


RE: كود بحث من فضلكم - CoderMM - 15-01-17

متشكر ليك جدا