[ssayed111]

'n1  رقم اندكس العمود الذي اخترته ليعمل كذرار لتنفيد كودك     (على  سبيل المثال اعطيطه الرقم 5 ويمكنك استبداله برقم الاندكس لديك)
 'n2  رقم العمود الذي به تشك بوكس                               (على  سبيل المثال اعطيطه الرقم 3 ويمكنك استبداله برقم الاندكس لديك)

---

اذا انته محتاج تضعه في زرار خارج الداتاجريد  حنعتبر ان التكست

       'n2  رقم العمود الذي به تشك بوكس
       'c1 متغير ليحسب لك عدد التشك بوكس التي اشرت عليها في العمود
       'dgv1 اسم الداتا جريد لديك
 
       Dim n2 As Integer = 3
       If e.ColumnIndex = n1 Then
           For i = 0 To dgv1.RowCount - 1
               Dim c1 As Integer = 0
               If CType(dgv1.Rows(i).Cells(n2).Value, CheckBox).Checked Then
                   c1 += 1
               End If
           Next
    
       TextBox1.text = c1.ToString
 
1