C# と VB.NET の質問掲示板

■No75179 (ケンシロウ さん) に返信

行追加時に該当CellをReadOnlyにして、セル編集が行われたら解除

サンプルです。

    Private Sub DataGridView1_RowsAdded(sender As Object, e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded
        Dim grow = DataGridView1.Rows(e.RowIndex)
        grow.Cells(0).ReadOnly = True
    End Sub

    Private Sub DataGridView1_CellValidated(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellValidated
        Dim grow = DataGridView1.Rows(e.RowIndex)
        If grow.Cells(0).ReadOnly Then
            grow.Cells(0).ReadOnly = False
        End If
    End Sub

shu様、アドバイスありがとうございます。
頂いたサンプルで、ReadOnlyにすることができました。
ただ、あらかじめDataGridView.Rows.Addで初期データを追加しておく場合、
これらの行のチェックボックスもReadOnlyになってしまうため、
以下のようにアレンジしてみたところ、うまくいきました。


Private Sub dgv_RowsAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs)
    Dim dgv As DataGridView = sender
    Dim row As DataGridViewRow = dgv.Rows(e.RowIndex)
    row.Cells(チェックボックスのインデックス).ReadOnly = row.IsNewRow
End Sub

Private Sub dgv_CellValidated(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
    Dim dgv As DataGridView = sender
    Dim row As DataGridViewRow = dgv.Rows(e.RowIndex)
    Dim cel As DataGridViewCell = row.Cells(チェックボックスのインデックス)
    If Not row.IsNewRow AndAlso cel.ReadOnly Then
        cel.ReadOnly = False
    End If
End Sub

これで問題を解決することができました。
ありがとうございました。