Private Sub gridGroupingControl1_TableControlCurrentCellStartEditing(sender As Object, e As GridTableControlCancelEventArgs) Dim cc As GridCurrentCell = e.TableControl.CurrentCell Dim style As GridTableCellStyleInfo = e.TableControl.Model(cc.RowIndex, cc.ColIndex) If style.ReadOnly = True Then e.Inner.Cancel = True End If End Sub ''gridGroupingControl1_TableControlCurrentCellStartEditing