[ابو انس]

وعليكم السلام
قم بانشاء داتا جريد فيو ولنسمه dgv قم باضافة عمود واحد على الاقل ولنسمه مثلا num
قم بانشاء lable عدد 2

كود :

   Private Sub dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellClick
       Dim a As Integer = dgv.CurrentRow.Index
       Label1.Text = dgv.Rows(a).Cells("num").Value

       Dim rep As Integer
       For i As Integer = 0 To dgv.Rows.Count - 1
           If dgv.Rows(i).Cells("num").Value = Label1.Text Then
               rep += 1
           End If
       Next
       Label2.Text = rep
   End Sub