感谢,如果设置为readonly,还怎么写入 ✔或 ✘啊?[/quote]
readonly 只是对客户而言,界面上不让用户输入字符而已,你代码里的写入是不受影响的。
Private Sub DGVForSelect_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DGVForSelect.CellMouseClick
If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 AndAlso DGVForSelect.Columns(e.ColumnIndex).Name = "列名称" Then
If DGVForSelect.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = "✔" Then
DGVForSelect.Rows(e.RowIndex).Cells("单元格的名称").Value = "✘"
else
DGVForSelect.Rows(e.RowIndex).Cells("单元格的名称").Value = "✔"
endif
End If
End Sub
[/quote]
好的,谢谢,我尝试一下。
Private Sub DGVForSelect_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DGVForSelect.CellMouseClick
If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 AndAlso DGVForSelect.Columns(e.ColumnIndex).Name = "列名称" Then
If DGVForSelect.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = "✔" Then
DGVForSelect.Rows(e.RowIndex).Cells("单元格的名称").Value = "✘"
else
DGVForSelect.Rows(e.RowIndex).Cells("单元格的名称").Value = "✔"
endif
End If
End Sub