[ابو انس]

الادوات المطلوبة تيكس بوكس وليبل وداتا جريد فيو

PHP كود :

   Private Sub dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellClick
        Dim countt As Integer = 0
        Dim aa As String = dgv.CurrentCell.Value  'كود استخراج محتوى الخلية المحددة بالتقر عليها
        Dim colum_num As Integer = dgv.CurrentCell.ColumnIndex  'كود استخراج رقم العمود

        If aa <> Nothing Then
            If colum_num = 1 Then   'اذا كان العمود المحدد رقم واحد وتذكر ان عد الاعمدة يبدأمن صفر
                TextBox1.Text = aa

                For i As Integer = 0 To dgv.Rows.Count - 1
                    If dgv.Rows(i).Cells(1).Value = aa Then
                        countt = countt + 1
                    End If
                Next

            End If
        End If
        Label1.Text = countt
    End Sub