[kslawy]

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

كود :

'حلقة للدوران علي جميع صفوف الأداة
        For Each dgvr As DataGridViewRow In DataGridView1.Rows
            'نتحقق أن الصف الحالي ليس صفاً جديداً حتى لا يحدث خطأ
            If Not dgvr.IsNewRow Then
                'نتحقق هل رقم الصف الحالي أصغر أو يساوى 200
                ' مع ملاحظة أنني تحققت من الرقم 199 وذلك لأن صفوف الأداة يبدأ ترقيمها من الصفر
                If dgvr.Index <= 199 Then
                    ' هنا يتم جعل الصف للقراءة فقط
                    dgvr.ReadOnly = True
                End If
            End If
        Next

****
***
**
*