▼質問
DataGridにチェックボックを表示するためにDataGridBoolColumnを使ってチェックボックスを

作成したんだけど、プログラムからチェックボックスのチェックを表示・非表示するやり方が

わからないんだ。どうやったらできるか教えてくれ！

▼回答
MouseClickイベントに下記のコードを記述すればできるから参考にしてくれ！！

Dim dg As DataGrid = CType(sender, DataGrid)
Dim row As Integer = dg.CurrentCell.RowNumber : Dim col As Integer = dg.CurrentCell.ColumnNumber
If (dg.TableStyles.Item(0).GridColumnStyles(col).GetType.Name = "DataGridBoolColumn") Then
    Dim BoolColumn As DataGridBoolColumn = _
    CType(dg.TableStyles.Item(0).GridColumnStyles(col), DataGridBoolColumn)
    Dim Bind As BindingManagerBase = _
    Me.BindingContext(DirectCast(dg.DataSource, DataTable))
    Dim value As Boolean = False
    Dim drv As DataRowView = _
    CType(DirectCast(Bind.Current, DataRowView), DataRowView)
    Dim value As Boolean = _
    CBool(IIf(CType(BoolColumn.PropertyDescriptor.GetValue(drv), Boolean), _
    False, True))
    BoolColumn.PropertyDescriptor.SetValue(drv, value)
End If
    BoolColumn.DataGridTableStyle.SelectionBackColor = SystemColors.Window

■参考サイト
VB コントロールのデータ連結
http://homepage1.nifty.com/rucio/main/VBdotNet/Database/Database6.htm

---