Comment je peut regroupé le total d'un somme dans MSFlexGrid1 ?
accent19811
Messages postés
98
Date d'inscription
Statut
Membre
Dernière intervention
-
accent19811 Messages postés 98 Date d'inscription Statut Membre Dernière intervention -
accent19811 Messages postés 98 Date d'inscription Statut Membre Dernière intervention -
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 !!!
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 !!!
A voir également:
- Comment je peut regroupé le total d'un somme dans MSFlexGrid1 ?
- Formule somme excel colonne - Guide
- Total uninstall - Télécharger - Divers Utilitaires
- Somme si couleur - Guide
- Total video converter - Télécharger - Conversion & Codecs
- Total av desabonnement ✓ - Forum Consommation & Internet
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, suggestion:
select VenteProduit.Ref, sum(VenteProduit.Prix) as sommeprix, count(*) as nombre from VenteProduit group by VenteProduit.Ref order by VenteProduit.Ref asc
Merci à votre Réponse (yg_be)