[Anas Mahmoud]

المشكلة ليست في الكود المشكلة في فهم المطلوب عمله اولا قبل البحث على كود لانجاز المهمة ، تجريب الاكواد ليس خيارا ابدا عند تطوير برنامج نظيف وعملي ، يجب فهم كل حرف قبل كتابته ، اي سطر كود غير مفهوم بشكل كامل هو عبارة عن قنبلة موقوتة في الكود 

مثلا الخاصية CurrentRow تمثل الصف الحالي ، وكلمة الحالي تعني اخر صف تم الضغط عليه وفقط ، صف وحيد فقط

من فهمك لذلك نجد ان هذه الخاصية غير مناسبة للمطلوب في البرنامج

الخاصية المناسبة هي Rows والتي تمثل الاعمدة كلها ، نقوم باللف عليها ب For Each ونحدد شرط ان تكود الخلية الثالثة من الصف بقيمة True واذا تحقق نقوم باضافة قيمة الخلية الاولى الى نص الاستعلام :

كود :

       Dim Selects As String

       For Each R As DataGridViewRow In DataGridView1.Rows 'نلف على عناصر الجريد فيو كلها

           Dim CheckRow As DataGridViewCheckBoxCell = R.Cells(2) 'خليه الصح وخطأ

           If CheckRow.Value Then 'اذاكانت الخلية صح

               Dim TblCoulmnName As String = R.Cells(0).Value 'العنصر من العمود

               If String.IsNullOrWhiteSpace(Selects) Then
                   Selects = TblCoulmnName  'اول عمود
               Else
                   Selects &= "," & TblCoulmnName 'اضف العمود
               End If

           End If



       Next