Discussion :

[JCMANSION]

Bonjour

J'ai un gridview qui se remplit dynamiquement sur une BD Access.
je voudrais avoir sur la derniere ligne (footer) un total sur chaque colonne.
Pour la première colonne pas de problème j'y suis arrivé.
Comment faire pour les autres colonnes ?
Merci pour vos réponses
JCM

[jjameau]

Comment charges tu ton Gridview ?

[JCMANSION]

Par une requete SQL et DataBind

[jjameau]

peux tu poster ta méthode de chargement stp

[JCMANSION]

Ma requete :

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
Sub VoirCA()
        'objet connection
        Using connexion As OleDbConnection = Me.DBConn
            Dim DBCommand As OleDbCommand
            'Objet Dataset
            Dim DSPageData As New DataSet
            'connection a la base de données
            DBCommand = New OleDbCommand("SELECT * From CAsemaine Where Lan= ?" & " Order by NumJour", connexion)
            'objet DataAdapter
            Dim myOleDbDataAdapter As New OleDbDataAdapter(DBCommand)
            DBCommand.Parameters.AddWithValue("Lan", Session("Lan"))
            myOleDbDataAdapter.SelectCommand.Parameters("Lan").Value = Session("Lan")
            myOleDbDataAdapter.Fill(DSPageData, "LePanier")
            GdvCA.DataSource = _
             DSPageData.Tables("LePanier").DefaultView
            GdvCA.DataBind()
        End Using
    End Sub

L'affichage du total sur le Footer :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private orderTotal As Decimal = 0.0
    Sub GdvCA_RowCreated(ByVal sender As Object, ByVal e As GridViewRowEventArgs)
        Dim row As GridViewRow = e.Row
        If row.RowType = DataControlRowType.Footer Then
            Dim total As Label = CType(e.Row.FindControl("OrderTotalCA"), Label)
            If (Not total Is Nothing) Then
                total.Text = orderTotal.ToString("c")
            End If
        End If
    End Sub

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
Sub GdvCA_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)
        Dim row As GridViewRow = e.Row
        If row.RowType = DataControlRowType.DataRow Then
            Dim cell As TableCell = e.Row.Cells(1)
            Dim boundControl As DataBoundLiteralControl = CType(cell.Controls(0), DataBoundLiteralControl)
            Dim itemTotal As String = boundControl.Text.Replace("€", "")
            orderTotal += Convert.ToDecimal(itemTotal)
        End If
        If e.Row.RowType = DataControlRowType.Footer Then
            ' Afficher le cumul en pied de grille
            With e.Row
                .Cells(0).Text = "Total :"
                .Cells(0).CssClass = "MontantPanier"
 
            End With
        End If
    End Sub

Dans ce cas j'ai l'affichage du total sur la colonne 1, mais je voudrais également le total sur les colonnes 2 à 52
Merci pour votre aide
JCM

[jjameau]

tu pourrais boucler sur ton DataSet DSPageData ... mais si j'étais toi je ferai une requete en faisant des SUM sur tes colonnes et je les afficheraient dans le Footer

[JCMANSION]

C'est à dire :
Une première requete pour afficher les chiffres sur chaque lignes
et une seconde pour les SUM ?