[adel27]

[attachment=9633 كتب :adel27 pid='71484' dateline='1456822710']

كود :

 For i = 0 To DATAG.Rows.Count - 1
           With DATAG.Rows(i)
               Dim MyCheck As String = .Cells(6).Value.ToString
               If MyCheck = "True" Then
                   .Cells(0).ReadOnly = True
                   '.Cellds(1).ReadOnly = True
         
                   .DefaultCellStyle.BackColor = Color.LightGray

               Else
                   .Cells(0).ReadOnly = False
                   .Cells(1).ReadOnly = False
                          .DefaultCellStyle.BackColor = Nothing
               End If
           End With
       Next