(31-05-20, 04:03 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل ياأخي الصحفي

كود :

' للشك بوكس
       Dim ff As Integer = 0
       For i As Integer = 0 To DataGridView1.Rows.Count - 1
           If DataGridView1.Rows(i).Cells("Check").Value = True Then
               ff += 1
           End If
           MsgBox(ff.ToString)
       Next
       ' لعدد كلمة مصر
       Dim kk As Integer = 0
       For i As Integer = 0 To DataGridView1.Rows.Count - 1
           If DataGridView1.Rows(i).Cells("Country").Value = "Egypt" Then
               kk += 1
           End If
           MsgBox(kk.ToString)
       Next

(31-05-20, 04:22 AM)ابراهيم ايبو كتب : اخي هذه الجزئية لم افهم لماذا تريدها 
ان كان العدد فانت لست بحاجة الى مصفوفة
وان كان كلمة True ايضا كل العدد هو true اي ان المصفوفة ستكون عدد عناصرها هو عدد الشك بوكس ناقص واحد وستكون كل القيم فيها عبارة عن True
ايضا لست بحاجة اليها 
لا اعلم مالذي تريده من مصفوفة بهذا الشكل؟

(31-05-20, 04:54 AM)ابراهيم ايبو كتب : السلام عليكم
اخي سنعرف متغير نصي ثم نعمل حلقة فور على الداتاغرايد عمود الشك ونضيف الى المتغير النصي القيمة اذا كانت ترو وفاصلة
ثم نحذف الفاصلة من نهاية المتغير النصي بعد انتهاء حلقة الفور 
بعدها ننشء مصفوفة من المتغير النصي حيث نقطعه بدلالة الفاصلة 
هذا اللفة والدورة لاننا لانعرف عدد الشك بوكس حتى ننشئ مصفوفة بطولها

كود :

' تعريف متغير نصي
       Dim txt As String = ""
       For i As Integer = 0 To DataGridView1.Rows.Count - 1
           If DataGridView1.Rows(i).Cells("Check").Value = True Then
               txt += "true ," ' اضافة كلمة ترو مع الفاصلة الى المتغير النصي
           End If
           txt = txt.TrimEnd(CChar(",")) ' حذف الفاصلة من أخر المتغير النصي
       Next
       Dim seven() As String = txt.Split(",") ' انشاء مصفوفة من المتغير النصي بدلالة االتقطيع بالفاصلة
       ' لعرض عناصر المصفوفة
       For Each dd As String In seven
           MsgBox(dd)
       Next

ارجو ان اكون قد افدتك

(31-05-20, 05:13 AM)ابراهيم ايبو كتب : تفضل غير جملة الفور واستبدلها بهذه

كود :

 For i As Integer = 0 To DataGridView1.Rows.Count - 1
           If DataGridView1.Rows(i).Cells("Check").Value = True Then
               txt += DataGridView1.Rows(i).Cells("Id").Value & ","
           End If
       
     
 Next
 txt = txt.TrimEnd(CChar(",")) ' حذف الفاصلة من أخر المتغير النصي

هذا السطر اخرجه خارج حملة الفور وقد كان وجوده داخل الفور خطأ لم انتبه اليه جل من لايخطئ

كود :

txt = txt.TrimEnd(CChar(",")) ' حذف الفاصلة من أخر المتغير النصي