Pb Maj DropDownList dans un Repeater

Version imprimable

Bonjour A tous,

Voici mon problème:
J'ai deux dropdownlist dans le footer de mon Repeater . Quand je bouge le premier, j'aimerais mettre à jour le second. Mais quand je sélectionne ds le 1er c'est tous mon répéteur qui disparait !!!

Ca fait deux jour, que je cherche même avec Google et les Forums mais je ne trouve rien. Quelqu'un peut-il m'aider ?

Voici mes codes:
En premier le Code du fichier .aspx

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
<asp:Repeater ID="rptGrpAffecte" runat="server">
        <HeaderTemplate>
            <table class="TblRpt">
                <tr class="Entete" align="center">
                    <td>
                        Groupes
                    </td>
                    <td>
                        Item affecté
                    </td>
                    <td colspan="2">
                        &nbsp;
                    </td>
 
                </tr>
        </HeaderTemplate>
        <ItemTemplate>
            <tr class="Ligne" align="center">
                <td>
                    <asp:Label ID="lblGrp" runat="server" ></asp:Label>
                </td>
                <td>
                    <asp:RadioButtonList ID="lstItem" runat="server" >
                    </asp:RadioButtonList>
                </td>
                <td>
                    <asp:Button ID="btnMaj" runat="server" Text="MAJ" />
                </td>
                <td class="CellDel">
                    <asp:ImageButton ID="btnSuppr" ImageUrl="~/images/del_up.gif" runat="server" />
                </td>
            </tr>
        </ItemTemplate>
        <AlternatingItemTemplate>
            <tr class="LigneAlt" align="center">
                <td>
                    <asp:Label ID="lblGrp" runat="server" ></asp:Label>
                </td>
                <td>
                    <asp:RadioButtonList ID="lstItem" runat="server" >
                    </asp:RadioButtonList>
                </td>
                <td align="center">
                    <asp:Button ID="btnMaj" runat="server" Text="MAJ" />
                </td>
                <td class="CellDel">
                    <asp:ImageButton ID="btnSuppr" ImageUrl="~/images/del_up.gif" runat="server" />
                 </td>
            </tr>
        </AlternatingItemTemplate>
        <FooterTemplate>
        <tr class="Pied">
                <td >
                    <asp:DropDownList ID="lstGrpAdd" runat="server"  OnSelectedIndexChanged="lstGrpAdd_SelectedIndexChanged"  AutoPostBack="true">
                    </asp:DropDownList>
                </td>
                <td align="center">
                      <asp:DropDownList ID="lstItemAdd" runat="server" >
                    </asp:DropDownList>
                </td>
                <td align="center" colspan="2">
                     <asp:Button ID="btnAdd" runat="server" Text="Insérer" />
                </td>
            </tr>
            </table></FooterTemplate>
    </asp:Repeater>

Puis le Code du fichier .aspx.vb

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
 
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        If not Page.IsPostBack Then
            BindForm()
        End If
    End Sub
 
    Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
             rptGrpAffecte.DataBind()
    End Sub
 
    ''' <summary>
    ''' Remplissage du formulaire
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub BindForm()
 
            Dim ds As DataSet
 
            'Récupérer Dataset
            ds = Shp.GetGroupeAffectes
 
            dtv = ds.Tables(0).DefaultView
            rptGrpAffecte.DataSource = dtv
 
    End Sub
 
    ''' <summary>
    ''' Remplir le répéteur
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Protected Sub rptGrpAffecte_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.RepeaterItemEventArgs) Handles rptGrpAffecte.ItemDataBound
        'Lignes répétées
        If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
            'Déclaration des variables de travail
            Dim r As Data.DataRowView
            Dim lbl As Label
            Dim lst As RadioButtonList
            Dim btnSupp As ImageButton
            Dim btnMaj As Button
 
            'Association variables de travails aux objets de la fenêtre
            r = CType(e.Item.DataItem, Data.DataRowView)
            lbl = CType(e.Item.FindControl("lblGrp"), Label)
            lst = CType(e.Item.FindControl("lstItem"), RadioButtonList)
            btnSupp = CType(e.Item.FindControl("btnSuppr"), ImageButton)
            btnMaj = CType(e.Item.FindControl("btnMaj"), Button)
 
            'Gestion du bouton supprime
            btnSupp.CommandName = "DEL"
            btnSupp.CommandArgument = r("Id").ToSting()
 
            'Gestion du bouton Mise a Jour
            btnMaj.CommandName = "MAJ"
            btnMaj.CommandArgument = r("ID").ToString
 
            'Pied du répéteur
        ElseIf e.Item.ItemType = ListItemType.Footer Then
 
            'Déclaration des variables de travail
            Dim lstGrp, lstItem As DropDownList
            Dim btn As Button
 
            'Association variables de travails aux objets de la fenêtre
            lstGrp = CType(e.Item.FindControl("lstGrpAdd"), DropDownList)
            lstItem = CType(e.Item.FindControl("lstItemAdd"), DropDownList)
            btn = CType(e.Item.FindControl("btnAdd"), Button)
 
            'Remplir la liste des Distributeurs potentiellemnt affectable
            Dim ds As DataSet = Nothing
            ds = GetDS_Groupes
 
            lstGrp.DataSource = ds
            lstGrp.DataTextField = "LibelleGrp"
            lstGrp.DataValueField = "IdGrp"
            lstGrp.DataBind()
 
            'Gestion du bouton insérer
            btn.CommandName = "INS"
 
        End If
 
    End Sub
 
    Protected Sub lstGrpAdd_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim lstIt, lstGr As DropDownList
 
        lstGr = CType(sender, DropDownList)
        lstIt = CType(sender.parent.FindControl("lstItemAdd"), DropDownList)
 
        Dim ds As DataSet = Nothing
        ds = New MOS.DAL.SocieteGroupe(CInt(lstGr.SelectedValue)).GetDS_Items
 
        lstIt.DataSource = ds
        lstIt.DataTextField = "Libelle"
        lstIt.DataValueField = "IDItem"
        lstIt.DataBind()
 
    End Sub

Explication:
Un groupe est composé de sous groupe (appelé ici Item)
Je veux affecter ses sous groupes à des personnes.
Mon Footer me sert à ajouter, alors que le corps du repeater me sert à visualiser, à modifier ou à supprimer les affectations.

Donc en premier lieu je dois sélectionner un groupe dans lstGrpAdd dans le footer. Ce qui doit permettre de mettre dans lstItemAdd les sous groupes asssociés.

J'ai vérifier sous SQL SERVER 2008 : pas de pb avec les requêtes.
Je ne comprend pourquoi quand je bouge la sélection de lstGrpAdd mon Repeater disparait !!

Merci d'avance à ceux qui auront eu le courage de lire le roman de mes malheur et surtout ceux qui pourront m'en sortir :D

12/03/2009, 10h39
Pelote2012

Enfin j'ai trouvé,
Je pose l'explication pour en faire profiter tout le monde.

Le problème des objets du footer est qu'ils n'existe pas directement. Du coup quand on modifie la liste et que l'on est en autopostBack la page se recharge et là il aurait fallu que je concerve la SelectedValue pour pouvoir la remettre en place lors de rechargement de la page.

J'ai trouvé 3 solutions aux pb je vais vous les mettre sur trois réponses différences pour rester clair.

Solution 1

La première solution est assez simple , on sort les controle du footer et on traite les controle de manière classique.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
 <table class="TblRpt">
<asp:Repeater ID="rptGrpAffecte" runat="server">
        <HeaderTemplate>
 
                <tr class="Entete" align="center">
                    <td>
                        Groupes
                    </td>
                    <td>
                        Item affecté
                    </td>
                    <td colspan="2">
                        &nbsp;
                    </td>
 
                </tr>
        </HeaderTemplate>
        <ItemTemplate>
            <tr class="Ligne" align="center">
                <td>
                    <asp:Label ID="lblGrp" runat="server" ></asp:Label>
                </td>
                <td>
                    <asp:RadioButtonList ID="lstItem" runat="server" >
                    </asp:RadioButtonList>
                </td>
                <td>
                    <asp:Button ID="btnMaj" runat="server" Text="MAJ" />
                </td>
                <td class="CellDel">
                    <asp:ImageButton ID="btnSuppr" ImageUrl="~/images/del_up.gif" runat="server" />
                </td>
            </tr>
        </ItemTemplate>
        <AlternatingItemTemplate>
            <tr class="LigneAlt" align="center">
                <td>
                    <asp:Label ID="lblGrp" runat="server" ></asp:Label>
                </td>
                <td>
                    <asp:RadioButtonList ID="lstItem" runat="server" >
                    </asp:RadioButtonList>
                </td>
                <td align="center">
                    <asp:Button ID="btnMaj" runat="server" Text="MAJ" />
                </td>
                <td class="CellDel">
                    <asp:ImageButton ID="btnSuppr" ImageUrl="~/images/del_up.gif" runat="server" />
                 </td>
            </tr>
        </AlternatingItemTemplate>
        <FooterTemplate>
        </FooterTemplate>
    </asp:Repeater>
<tr class="Pied">
                <td >
                    <asp:DropDownList ID="lstGrpAdd" runat="server"    AutoPostBack="true">
                    </asp:DropDownList>
                </td>
                <td align="center">
                      <asp:DropDownList ID="lstItemAdd" runat="server" >
                    </asp:DropDownList>
                </td>
                <td align="center" colspan="2">
                     <asp:Button ID="btnAdd" runat="server" Text="Insérer" />
                </td>
            </tr>
            </table>

On est revenu à un cas classique de traitements sur les contrôles

Solution 2

On garde le footer tel quel (cf 1er msg) mais on retient la SelectedValue en cache

Voici les modifs à faire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Dim strCache As String
Dim  SelValue as integer = -1 'Mes Groupes sont connus en Base par un Id de type entier
 
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        If Not Page.IsPostBack Then ViewState("ID") = Guid.NewGuid.ToString
        strCache = "E_Cache|" & ViewState("ID").ToString
 
 
        If Page.IsPostBack Then  SelValue = CInt(Helper.GetObjectFromCache(strCache ))
 
        BindForm()
    End Sub

Code:

1
2
3
4
 
Protected Sub lstGrpAdd_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
       Helper.SetObjectToCache(strCache , SelValue , True, False, False)
    End Sub

Enfin :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Protected Sub rptGrpAffecte_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.RepeaterItemEventArgs) Handles rptGrpAffecte.ItemDataBound
        'Lignes répétées
       ...
            'Pied du répéteur
        ElseIf e.Item.ItemType = ListItemType.Footer Then
 
            'Déclaration des variables de travail
            Dim lstGrp, lstItem As DropDownList
            Dim btn As Button
 
            'Association variables de travails aux objets de la fenêtre
            lstGrp = CType(e.Item.FindControl("lstGrpAdd"), DropDownList)
            lstItem = CType(e.Item.FindControl("lstItemAdd"), DropDownList)
            btn = CType(e.Item.FindControl("btnAdd"), Button)
 
            'Remplir la liste des Distributeurs potentiellemnt affectable
            Dim ds As DataSet = Nothing
            ds = GetDS_Groupes
 
            lstGrp.DataSource = ds
            lstGrp.DataTextField = "LibelleGrp"
            lstGrp.DataValueField = "IdGrp"
            lstGrp.DataBind()
            lstGrp.Items.Insert(0, New ListItem("<--Choisir un Groupe-->", "-1"))
 
            If SelValue > 0 Then
 
                lstGrp.SelectedValue = SelValue 
 
                ds = new Groupe(SelValue).GetDS_Items
 
                lstItem.DataSource = ds
                lstItem.DataTextField = "Libelle"
                lstItem.DataValueField = "IDItem" 
                lstItem.DataBind()
 
            End If
 
            'Mettre en premier dans la liste des Items
            If lstItem.Items.Count = 0 Then
                btn.Enabled = False
                lstItem.Items.Insert(0, New ListItem("<--Pas d'Item dans ce groupe-->", "-1"))
            Else
                btn.Enabled = True
                lstItem.Items.Insert(0, New ListItem("<--Choisir un Item-->", "-1"))
            End If
 
 
            'Gestion du bouton insérer
            btn.CommandName = "INS"
 
            End If
 
    End Sub

J'ai refait ce code de mémoire, mais le suivant est celui que j'ai concervé

Solution 3

L'astuce est de ce dire que quand on recharge une page on a en retour les valeur des objets de la page. Et on peut les récupérer par leur UniqueID (du moment que l'objet est fixe : un footer n'est pas répéter dynamiquement)
Donc utilisation du : Request.Form(obj.UniqueID)

Je remet le code .aspx (le meme que pour la solution 2)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
<asp:Content ID="Content3" ContentPlaceHolderID="Contenu" runat="Server">
       <asp:Repeater ID="rptGrpAffecte" runat="server">
        <HeaderTemplate>
        <table class="TblRpt">
                <tr class="Entete" align="center">
                    <td>
                        Groupes
                    </td>
                    <td>
                        Item affecté
                    </td>
                    <td>
                        &nbsp;
                    </td>
                </tr>
        </HeaderTemplate>
        <ItemTemplate>
            <tr class="Ligne" align="center">
                <td>
                    <asp:Label ID="lblGrp" runat="server" CssClass="CtrlS"></asp:Label>
                </td>
                <td>
                    <asp:Label ID="lblItem" runat="server" CssClass="CtrlS"></asp:Label>
                </td>
                <td class="CellDel" align="center">
                    <asp:ImageButton ID="btnSuppr" ImageUrl="~/images/del_up.gif" runat="server" /><cc1:ConfirmButtonExtender
                        ID="CBE" runat="server" ConfirmText="Voulez vous vraiment supprimer ?" TargetControlID="btnSuppr">
                    </cc1:ConfirmButtonExtender>
                </td>
            </tr>
        </ItemTemplate>
        <AlternatingItemTemplate>
            <tr class="LigneAlt" align="center">
                <td>
                    <asp:Label ID="lblGrp" runat="server" CssClass="CtrlS"></asp:Label>
                </td>
                <td>
                    <asp:Label ID="lblItem" runat="server" CssClass="CtrlS"></asp:Label>
                </td>
                <td class="CellDel" align="center">
                    <asp:ImageButton ID="btnSuppr" ImageUrl="~/images/del_up.gif" runat="server" /><cc1:ConfirmButtonExtender
                        ID="CBE" runat="server" ConfirmText="Voulez vous vraiment supprimer ?" TargetControlID="btnSuppr">
                    </cc1:ConfirmButtonExtender>
                </td>
            </tr>
        </AlternatingItemTemplate>
        <FooterTemplate>
            <tr class="Pied" align="center">
                <td>
                    <asp:DropDownList ID="lstGrpAdd" runat="server" CssClass="Ctrl" AutoPostBack="true">
                    </asp:DropDownList>
                </td>
                <td align="center">
                    <asp:DropDownList ID="lstItemAdd" runat="server" CssClass="Ctrl">
                    </asp:DropDownList>
                </td>
                <td align="center">
                    <asp:Button ID="btnAdd" runat="server" Text="Affecter" CssClass="btnValid" />
                </td>
            </tr>
        </table></FooterTemplate>
    </asp:Repeater>

Le code aspx.vb:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
 
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        BindForm()
    End Sub
 
    Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
        rptGrpAffecte.DataBind()
    End Sub
 
    ''' <summary>
    ''' Remplissage du formulaire
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub BindForm()
        Try
            Dim ds As DataSet
            Dim dtv As DataView
 
            ds = Shp.GetGroupeAffectes
 
            dtv = ds.Tables(0).DefaultView
            rptGrpAffecte.DataSource = dtv 
 
        Catch ex As Exception
            Me.Master.AfficheMessage("Erreur dans l'affichage du répéteur", False)
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Remplir le répéteur
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Protected Sub rptGrpAffecte_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.RepeaterItemEventArgs) Handles rptGrpAffecte.ItemDataBound
        'Lignes répétées
        If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
            'Déclaration des variables de travail
            Dim r As Data.DataRowView
            Dim lblGrp, lblItem As Label
            Dim btnSupp As ImageButton
            Dim btnMaj As Button
 
            'Association variables de travails aux objets de la fenêtre
            r = CType(e.Item.DataItem, Data.DataRowView)
            lblGrp = CType(e.Item.FindControl("lblGrp"), Label)
            lblItem = CType(e.Item.FindControl("lblItem"), Label)
            btnSupp = CType(e.Item.FindControl("btnSuppr"), ImageButton)
            btnMaj = CType(e.Item.FindControl("btnMaj"), Button)
 
            ...
 
            'Pied du répéteur
        ElseIf e.Item.ItemType = ListItemType.Footer Then
 
            'Déclaration des variables de travail
            Dim lstGrp, lstItem As DropDownList
            Dim btn As Button
 
            'Association variables de travails aux objets de la fenêtre
            lstGrp = CType(e.Item.FindControl("lstGrpAdd"), DropDownList)
            lstItem = CType(e.Item.FindControl("lstItemAdd"), DropDownList)
            btn = CType(e.Item.FindControl("btnAdd"), Button)
 
            Dim ds As DataSet = Nothing
            ds = GetDS_Groupes
 
            lstGrp.DataSource = ds
            lstGrp.DataTextField = "LibelleGrp"
            lstGrp.DataValueField = "IdGrp"
            lstGrp.DataBind()
            lstGrp.Items.Insert(0, New ListItem("<--Choisir un Groupe-->", "-1"))
 
            Dim lstIndexAdd As Integer = CInt(Request.Form(lstGrp.UniqueID))  
            If lstIndexAdd > 0 Then
 
                lstGrp.SelectedValue = lstIndexAdd
 
                ds = New Groupe(lstIndexAdd).GetDS_Items
 
                lstItem.DataSource = ds
                lstItem.DataTextField = "Libelle"
                lstItem.DataValueField = "ID"
                lstItem.DataBind()
 
            End If
 
            'Mettre en premier dans la liste des Items
            If lstItem.Items.Count = 0 Then
                btn.Enabled = False
                lstItem.Items.Insert(0, New ListItem("<--Pas d'Item dans ce groupe-->", "-1"))
            Else
                btn.Enabled = True
                lstItem.Items.Insert(0, New ListItem("<--Choisir un Item-->", "-1"))
            End If
 
 
            'Gestion du bouton insérer
            btn.CommandName = "INS"
 
            End If
 
    End Sub
 
    Protected Sub rptGrpAffecte_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.RepeaterCommandEventArgs) Handles rptGrpAffecte.ItemCommand
        If e.CommandName = "DEL" Then
 
            Try
                ...
                BindForm()
            Catch ex As Exception
                Me.Master.AfficheMessage("Erreur Affectation suppression", False)
            End Try
 
        ElseIf e.CommandName = "INS" Then
 
            Try
                'Déclaration des variables de travail
                Dim lst As DropDownList
 
                'Association variables de travails aux objets de la fenêtre
                lst = CType(e.Item.FindControl("lstItemAdd"), DropDownList)
 
                If lst.SelectedValue = -1 Then
                    AfficheMessage("Sélectionner un groupe puis un Item avant affecter")
                Else
                    'Insert en Base
                End If
 
                BindForm()
            Catch ex As Exception
                Me.Master.AfficheMessage("Erreur Affichage Item Groupe", False)
            End Try
 
        End If
    End Sub

Désolé si mes explication ne sont pas très clair, je viens de comprendre le mécanisme à peu près. En tout cas ça donnera des idées ou des bases de recherches plus précises.

Sur ce Bonne journée à tous
:yaisse2::king:8-)