Comment je peut regroupé le total d'un somme dans MSFlexGrid1 ?

Messages postés
99
Date d'inscription
mercredi 4 janvier 2012
Dernière intervention
7 décembre 2018
- - Dernière réponse : Malokoxis
Messages postés
74
Date d'inscription
lundi 3 janvier 2011
Dernière intervention
24 septembre 2018
- 5 avril 2017 à 22:53
Bonjour,

j'ai un table de vente, qui prendre le nom suivant, (VenteProduit), est contient les donnée suivant :
------------------------------------
VENTEPRODUIT
------------------------------------
Référence | Prix de Vente
------------------------------------
---A0001---|--500,00--
---A0002---|--450,00--
---A0003---|--550,00--
---A0004---|--500,00--
---A0005---|--450,00--
---A0006---|--550,00--
---A0007---|--500,00--
---A0008---|--450,00--
---A0009---|--550,00--
---A0001---|--500,00--
---A0002---|--450,00--
---A0003---|--550,00--
---A0004---|--500,00--
---A0005---|--450,00--
----------------------------------

ma question :

- comment je peut regroupé le total d'un somme de prix pour chaque article ?

comme ça :

---------------------------------------------------------
Référence|Prix de Vente|Nombre de vente
--------------------------------------------------------
---A0001--|--1000,00--|--02--
---A0002--|--0900,00--|--02--
---A0003--|--1100,00--|--02--
---A0004--|--1000,00--|--02--
---A0005--|--0900,00--|--02--
---A0006--|--0550,00--|--01--
---A0007--|--0500,00--|--01--
---A0008--|--0450,00--|--01--
---A0009--|--0550,00--|--01--
------------------------------------------------------------

J'ai faire ce code suivants;
On Error Resume Next

Dim b As Database
Dim r As Recordset

MSFlexGrid1 .Rows = 1

Set b = OpenDatabase("c:\Base\STOCK.MDB")
Set r = b.OpenRecordset("select VenteProduit.Ref,VenteProduit.Prix from VenteProduit order by VenteProduit.Ref asc")
If r.RecordCount = 0 Then Exit Sub
Do
MSFlexGrid1 .AddItem r(0) & vbTab & r(1) 
r.MoveNext
Loop Until r.EOF



Aide-moi,

Merci d'avance !!!
Afficher la suite 

Votre réponse

1 réponse

Messages postés
74
Date d'inscription
lundi 3 janvier 2011
Dernière intervention
24 septembre 2018
0
Merci
"Aide-moi" ou "Pourriez-vous m'aidez svp ?"...

Il faut faire une boucle for sur la colonne contenant la référence du produit et à chaque fois que tu trouve la référence, dans une variable, tu additionne le contenu de la colonne contenant le prix.

Dim Reference As String
Dim VarRef As Integer

Reference = "A0001"
VarRef = 0

With MSFlexGrid1

    For i = 0 To .Rows - 1

        .Col = 0

        If .TextMatrix(0, i) = Reference Then VarRef = VarRef + .TextMatrix(1, i)
    Next i
End With
Commenter la réponse de Malokoxis

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.