salve dato
il seguente codice vorrei inserire un colonna di tipo check nella datagrid, ma porprio la seconda colonna nn me la visualizza
xche ?
grazie

codice:
Dim WithEvents DT As New DataTable("Tabella")

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Dc As DataColumn
        Dc = New DataColumn("Codice")
        DT.Columns.Add(Dc)
        Dc = New DataColumn("Data1")
        DT.Columns.Add(Dc)
    
        Dim Ts As New DataGridTableStyle
        Ts.MappingName = "Tabella"


        Dim Tc As DataGridTextBoxColumn
        Dim ch As DataGridBoolColumn

        Tc = New DataGridTextBoxColumn
        Tc.MappingName = "Codice"
        Tc.HeaderText = "COD."
        Tc.Width = 100
        Ts.GridColumnStyles.Add(Tc)

     
        ch = New DataGridBoolColumn
        ch.HeaderText = "Data"
        ch.MappingName = "Data"
        ch.Width = 100
        Ts.GridColumnStyles.Add(ch)


        Me.DataGrid1.DataSource = DT
        Me.DataGrid1.TableStyles.Add(Ts)

        AddRows()

    End Sub
    Private Sub AddRows()

        Dim Dr As DataRow

        Dr = DT.NewRow
        Dr(0) = "1"
        Dr(1) = "20040101"
        DT.Rows.Add(Dr)

        Dr = DT.NewRow
        Dr(0) = "2"
        Dr(2) = True
        DT.Rows.Add(Dr)