[mmali127]

السلام عليكم ورحمه الله وبركاته

بالنسبة للسؤال الاول

If cheAllItem.Checked = True Then
           For i = 0 To cur1.Count - 1
               grdPRItemList.Rows(i).Cells(7).Value = True
           Next
       ElseIf cheAllItem.Checked = False Then
           For i = 0 To cur1.Count - 1
               grdPRItemList.Rows(i).Cells(7).Value = False
           Next

       End If

الكود السابق ...
عند وضع علامة على  cheAllItem يجعل الكل بالجريد فى وضع الاختيار  والعكس عند حذف العلامة

السؤال الثانى .. ارفق مشروع ليتم التعديل علية

تحياتى