Discussion :

[Franck.H]

Il faudrait, avant un export au format Excel, que je supprime tous les contrôles de type HiddenField. Voici mon code actuel

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    Private Sub NettoyageColonne(ByVal dg As DataGrid)
        For i As Integer = 0 To dg.Items.Count - 1
            For j As Integer = 1 To dg.Columns.Count - 1
                For k As Integer = 0 To dg.Items(i).Cells(j).Controls.Count - 1
                    If TypeOf dg.Items(i).Cells(j).Controls(k) Is HiddenField Then
                        dg.Items(i).Cells(j).Controls.Remove(dg.Items(i).Cells(j).Controls(k))
                    End If
                Next
            Next
        Next
    End Sub

Cependant, la dernière boucle à l'air de boucler au-delà du nombre de contrôles présents dans la cellule en cours de parcours et me lève donc une exception de dépassement d'indice. Quais-je fait de mal ?

[Franck.H]

Ou bien quelqu'un pourrais éventuellement me dire comment palier à ce problème car les contrôles HiddenField ne peuvent à priori êtres dans le flux:

Le contrôle 'dgListePratiquesEpandagesPrevi_ctl12_hfIdChamp' de type 'HiddenField' doit être placé dans une balise form avec runat=server.

Je réponde tout de suite à la question que vous poserez, oui tous mes contrôles sont en runat="server"

J'utilise la méthode trouvée sur un vieux tutoriel:

Code vb :

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
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
    Private Sub ExportExcel(ByVal dg As DataGrid)
        VerifColonnes(dg)
 
        Response.Clear()
        Response.Buffer = True
        Response.ContentType = "application/vnd.ms-excel"
        Response.Charset = ""
 
        Dim sw As New StringWriter
        Dim html As New HtmlTextWriter(sw)
 
        dg.RenderControl(html)
 
        Response.Write(html.ToString())
        Response.End()
    End Sub
 
    Private Sub VerifColonnes(ByVal dg As Control)
        ' On récupère le nombre de controles enfants composant le DataGrid
        Dim nbControls As Integer = dg.Controls.Count - 1
 
        While nbControls >= 0
            VerifColonnes(dg.Controls(nbControls))
            nbControls = nbControls - 1
        End While
 
        ' Si la cellule ne contient pas du texte simple 
        If Not (TypeOf dg Is TableCell) Then
            ' Si le controle concerné à une prorpiété "Selected Item" alors...
            ' Remarque : Seul les controles offrant des choix multiples ont une propriété "SelectedItem"
            If Not (dg.GetType().GetProperty("SelectedItem") Is Nothing) Then
                Dim controleLitteral1 As LiteralControl = New LiteralControl
                dg.Parent.Controls.Add(controleLitteral1)
 
                Try
                    ' La cellule prend alors pour valeur le texte correspondant à la propriété "SelectedItem"
                    controleLitteral1.Text = CType(dg.GetType().GetProperty("SelectedItem").GetValue(dg, Nothing), String)
                Catch ex As Exception
                    ' On récupère l'exception en cas de problème
                    Response.Write(ex.Message)
                End Try
 
                ' Le controle concerné est retiré
                dg.Parent.Controls.Remove(dg)
            Else
                ' Si le controle concerné n'a pas de propriété "SelectedItem" alors on récupère le 
                ' texte (s'il y en a un) de sa propriété "Text"
                If Not (dg.GetType().GetProperty("Text") Is Nothing) Then
                    Dim controleLitteral2 As LiteralControl = New LiteralControl
                    dg.Parent.Controls.Add(controleLitteral2)
 
                    ' On attribue le texte de la propriété "Text" à la cellule concernée
                    controleLitteral2.Text = CType(dg.GetType().GetProperty("Text").GetValue(dg, Nothing), String)
                    dg.Parent.Controls.Remove(dg)
                End If
            End If
        End If
    End Sub