[نور الهدى الهدى]

السلام عليكم 

مطلوب كود جمع صنف او أسم داخل القريد فيو وليس داخل القاعدة 

متلا في العمود الثالث احتاج جمع أسم elgokr
وقصدت elgokr لانه دئما سباق في مساعدة الجميع وله كل التقدير والاحترام 

[Amir_Alzubidy]

السلام عليكم و حمة الله 

اهلا بكم اخواني الكرام

اتمنى ان يكون هو المطلوب 

PHP كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = 0
        Dim x As Integer = 0
        For i = 0 To DataGridView1.Rows.Count - 2
                If DataGridView1.Rows(i).Cells(0).Value.ToString.Contains(TextBox1.Text) Then
                    x = x + 1
                End If
        Next
        MsgBox(x)
    End Sub 


[نور الهدى الهدى]

(08-07-18, 05:46 PM)Amir_alzubidy كتب :

السلام عليكم و حمة الله 

اهلا بكم اخواني الكرام

اتمنى ان يكون هو المطلوب 

PHP كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = 0
        Dim x As Integer = 0
        For i = 0 To DataGridView1.Rows.Count - 2
                If DataGridView1.Rows(i).Cells(0).Value.ToString.Contains(TextBox1.Text) Then
                    x = x + 1
                End If
        Next
        MsgBox(x)
    End Sub 


هذا المطلوب اشكرك اخي أمير

[نور الهدى الهدى]

السلام عليكم 
لكن الكود غير دقيق في البحث متلا موافق او غير موافق يقوم بجمعهم الرجاء التأكد

[Amir_Alzubidy]

تعديل الكود : 

PHP كود :

       Dim x As Integer = 0
        For i = 0 To DataGridView1.Rows.Count - 2
            If RadioButton1.Checked = True Then
                If DataGridView1.Rows(i).Cells(0).Value.ToString = TextBox1.Text Then
                    x = x + 1
                End If
            End If
        Next
        MsgBox(x)
    End Sub 


[نور الهدى الهدى]

(08-07-18, 08:19 PM)Amir_Alzubidy كتب : تعديل الكود : 

PHP كود :

       Dim x As Integer = 0
        For i = 0 To DataGridView1.Rows.Count - 2
            If RadioButton1.Checked = True Then
                If DataGridView1.Rows(i).Cells(0).Value.ToString = TextBox1.Text Then
                    x = x + 1
                End If
            End If
        Next
        MsgBox(x)
    End Sub 


وفقك الله مشرفنا الغالي