Bonjour,

J'essaye de récupérer des valeurs cochés de Checkbox.
J'ai fais une boucle comme-ci et récupérer les valeurs d'une base de donnée mais je souhaite faire un update des cases que j'ai coché ou non coché. Sauriez-vous comment ?

AFFICHAGE + RECUPERATION VALEURS ci dessous
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Using bdc As New TR_crecqEntities
            Dim lst_droit As IList(Of tr_select_checkbox_user_Result)
            lst_droit = bdc.tr_select_checkbox_user(userID).ToList
            Form1.Controls.Add(New LiteralControl("<DIV style=""position:relative; left:200px;"">"))
            For cur = 0 To lst_droit.Count - 1
                Dim checkBox = New CheckBox()
                Form1.Controls.Add(checkBox)
                checkBox.Text = lst_droit(cur).MENU_LIBELLE
                checkBox.ID = lst_droit(cur).MENU_ID
                checkBox.Checked = lst_droit(cur).VISU
                Form1.Controls.Add(New LiteralControl("<BR>"))
            Next
            Form1.Controls.Add(New LiteralControl("</DIV>"))
        End Using
 
    End Sub
Pour l'update je ferais ainsi mais je ne sais pas comment récupérer les nouvelles valeurs pour les insérer dans la BDD

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Protected Sub BtnValid_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnValid.Click
        Using bdc As New TR_crecqEntities
            For Each co In donnee
                bdc.tr_update_checkbox_from_user(case coché ou non, id utilisateur, id checkbox)
            Next
        End Using
    End Sub