Datagrid avec cas à coché

Question

bonjour les développeurs 
voila j'ai pu réaliser ce code qui permet d'ajouter une colonne de case à coché dans un datagrid mais le problème que cette colonne est désactivé si quelqu'un peut m'aider dan ce truc voila le code:


Sub select_datatable()
        Try
            Dim ad As New SqlDataAdapter

            Dim cmd As New SqlCommand

            cmd.Connection = con
            cmd.CommandText = "select ref_equipement,nom_equipement  from equipement"
            ad.SelectCommand = cmd

            Dim c As New DataColumn
            dt.Columns.Add("Select")


            Dim boolCol As New DataGridBoolColumn
            Dim ref As New DataGridTextBoxColumn
            Dim nom As New DataGridTextBoxColumn


            boolCol.HeaderText = "Select"
            boolCol.MappingName = "Select"
            boolCol.Width = 50
            ds1.GridColumnStyles.Add(boolCol)

            ref.HeaderText = "Reference"
            ref.MappingName = "ref_equipement"
            ref.Width = 200
            ds1.GridColumnStyles.Add(ref)

            nom.HeaderText = "Nom"
            nom.MappingName = "nom_equipement"
            nom.Width = 200
            ds1.GridColumnStyles.Add(nom)


            Me.dg_test.TableStyles.Add(ds1)
            ad.Fill(dt)
            Me.dg_test.DataSource = dt

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

cs_zwiki · Answer

C'est bon j'ai trouvé la solution voila le code pour vous 
Try
            Dim ad As New SqlDataAdapter

            Dim cmd As New SqlCommand

            cmd.Connection = con
            cmd.CommandText = "select ref_equipement,nom_equipement  from equipement"
            ad.SelectCommand = cmd
            Dim boolCol As New DataGridBoolColumn
            Dim ref As New DataGridTextBoxColumn
            Dim nom As New DataGridTextBoxColumn
            Dim c As New DataColumn("Select", GetType(Boolean))
            c.DefaultValue = False
            c.ReadOnly = False
            dt.Columns.Add(c)
            
            boolCol.HeaderText = "Select"
            boolCol.MappingName = "Select"
            boolCol.Width = 50
            ds1.GridColumnStyles.Add(boolCol)

            ref.HeaderText = "Reference"
            ref.MappingName = "ref_equipement"
            ref.Width = 200
            ds1.GridColumnStyles.Add(ref)

            nom.HeaderText = "Nom"
            nom.MappingName = "nom_equipement"
            nom.Width = 200
            ds1.GridColumnStyles.Add(nom)


            Me.dg_test.TableStyles.Add(ds1)
            ad.Fill(dt)
            Me.dg_test.DataSource = dt
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
N.B : le ds1 est créé manuellement dans le datagrid(TableStyle)

Datagrid avec cas à coché

1 réponse

Votre réponse

Discussions similaires