VB.NET Checkbox boucle

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:

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 :roll:

Code:

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

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(lst_droit.Count - 1) As CheckBox checkBox(cur) = New CheckBox Form1.Controls.Add(checkBox(cur)) checkBox(cur).Text = lst_droit(cur).MENU_LIBELLE checkBox(cur).ID = lst_droit(cur).MENU_ID checkBox(cur).Checked = lst_droit(cur).VISU AddHandler checkBox(cur).CheckedChanged, AddressOf checkboxNav_Click Form1.Controls.Add(New LiteralControl("<BR>")) Next Form1.Controls.Add(New LiteralControl("</DIV>")) End Using End Sub

Private Sub checkboxNav_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Using bdc As New TR_crecqEntities Dim btn As CheckBox = DirectCast(sender, CheckBox) Dim rowindex As Integer = btn.ID Dim rowActive As Boolean = btn.Checked bdc.tr_update_checkbox_from_user(btn.Checked, userID, rowindex) End Using End Sub