[RESOLVED] Enable/Disable Column in a DataGrid?

[fdunford]

I tried this but it seems to do absolutly nothing.

Private Sub Session5SupportedCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Session5SupportedCheckBox.CheckedChanged
        If Session5SupportedCheckBox.Checked = True Then
            dtService.Columns.Item(6).ReadOnly = False
            DataGridServices.Refresh()
        Else
            dtService.Columns.Item(6).ReadOnly = True
            DataGridServices.Refresh()
        End If
    End Sub

[Zakary]

Is this DataGrid is bounded to a DataGridTableStyle and DataGridColumnStyle ?

[fdunford]

Hi Z. Yes on both.

[Zakary]

Well Have you try to Disabled the Column by it's bounded DataGridColumnStyle ?

[fdunford]

Zak,

I mis-spoke. I have a DataGridTableStyle but not a DataGridColumnStyle . I just tried to figure out how to create a DataGridColumnStyle but seem to be having a bad go of it. Can you help?


code from a previous question

[Zakary]

A easy way to create DataGridColumnStyle is by the usage of the Collection editor from the DataGrid, look at the TableStyles property from the Grid and from that collection editor look for DataGridColumnStyle

You may also look at this MSDN Article for more info
http://msdn.microsoft.com/library/de...lumnstyle1.asp

Hope it will help !!

[fdunford]

Got it via the DataGridTableStyle.

Private Sub Session4SupportedCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Session4SupportedCheckBox.CheckedChanged
        Dim dgts As DataGridTableStyle
        Dim cb1 As DataGridColumnStyle
 
        If dtService.Columns.Count > 0 Then
            dgts = DataGridServices.TableStyles(sServiceTable)
            cb1 = dgts.GridColumnStyles.Item(sSessionCB4)
            If Session4SupportedCheckBox.Checked = True Then
                gSessions(4).Mandatory = False
                cb1.ReadOnly = False
            Else
                gSessions(4).Mandatory = True
                cb1.ReadOnly = True
            End If
        End If
    End Sub