Comment traiter des totaux entre les tableaux VB 6?

Fermé

accent19811 Messages postés 105 Date d'inscription mercredi 4 janvier 2012 Statut Membre Dernière intervention 28 mai 2023 - 31 mars 2017 à 21:28
accent19811 Messages postés 105 Date d'inscription mercredi 4 janvier 2012 Statut Membre Dernière intervention 28 mai 2023 - 1 avril 2017 à 21:30

Bonjour,
j'ai deux table : "TableAchat" et "Tablevente" :
1- Table d'Achat :
------------------------------------
Table Achat
------------------------------------
Référence | Prix d'achat
------------------------------------
---A0001---|--450,00--
---A0002---|--400,00--
---A0003---|--500,00--
---A0004---|--400,00--
---A0005---|--400,00--
---A0006---|--500,00--
---A0007---|--400,00--
---A0008---|--400,00--
---A0009---|--500,00--
----------------------------------

2- Table de Vende :
------------------------------------
Table Vente
------------------------------------
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--
---A0010---|--500,00--
---A0011---|--550,00--
---A0012---|--560,00--
---A0013---|--570,00--
---A0014---|--580,00--
----------------------------------
ma question :
- comment je peut faire des calcules de solde (Prix vente - Prix d'achat) est présent comme ça ?
---------------------------------------------------------
Liste de bénéfice
--------------------------------------------------------
Référence|Prix d'achat|Prix de vente|prix de Solde
---A0001--|--0450,00--|--0500,00|50.00
---A0002--|--0400,00--|--0450,00|50.00
---A0003--|--0500,00--|--0550,00|50.00
---A0004--|--0400,00--|--0500,00|100.00
---A0005--|--0400,00--|--0450,00|50.00
---A0006--|--0500,00--|--0550,00|50.00
---A0007--|--0400,00--|--0500,00|100.00
---A0008--|--0400,00--|--0450,00|50.00
---A0009--|--0400,00--|--0550,00|50.00
---A0010--|--0000,00--|--0500,00|500.00
---A0011--|--0000,00--|--0550,00|550.00
---A0012--|--0000,00--|--0560,00|560.00
---A0013--|--0000,00--|--0570,00|570.00
---A0014--|--0000,00--|--0580,00|580.00
------------------------------------------------------------
j'ai fait ce code VB:

Dim Ref_achat  As String
Dim Ref_vente  As String
dim prixachat as double
dim prixvente as double 
dim prixsolde as double

Ref_Cherch  =""
prixachat =0
prixvente =0
prixsolde =0

If Liste1.Rows <> 1 Then
    For y = 1 To liste1.Rows - 1
        Ref_achat = liste1.TextMatrix(y, 0)
        prixachat =liste1.TextMatrix(y, 1)

            For i = 1 To liste2.Rows - 1
         Ref_vente=liste2.TextMatrix(i, 0)     
         prixvente =liste2.TextMatrix(i, 1)

                If Ref_achat   = Ref_vente   Then
                 prixsolde =prixvente -prixachat

liste3.AddItem ref_vente & vbtab & prixachat & vbtab & prixvente & vbtab & prixsolde 
                   
                End If
            Next i
      
    Next y
End If

Aide-moi,

Merci d'avance !!!

A voir également:

Comment traiter des totaux entre les tableaux VB 6?
Geekom as 6 - Guide
Vb cable - Télécharger - Audio & Musique
Tableaux croisés dynamiques - Guide
Gta 6 prix - Guide
Vb - Télécharger - Langages

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
1 avril 2017 à 07:21

Bonjour,

Votre code marche tres bien, sauf que vous ne prenez pas la bonne table pour la boucle y. Vendre ce que vous n'avez pas achete c'est pas bien

accent19811 Messages postés 105 Date d'inscription mercredi 4 janvier 2012 Statut Membre Dernière intervention 28 mai 2023
1 avril 2017 à 16:00

Bonjour,

ça va bien ami, "Je suis très heureux de votre réponse"

oui marche bien,

mais non montre pas les autres article, qui se trouve de table de vente,
elle montre seulement les articles qui se trouve dans table d'achat, car l'référence d'achat = à référence de vente.

moi, je vous S.V.P :

- dans la liste 3 ; je vous montre tous les articles qui se trouve dans table de vente et table d'achat, si l'référence d'article d'achat = à l'référence d'article de vente, s'affiche dans la liste trois, et fait des calcules; prix vente - prix d'achat pour donnée le solde réel, sinon s'affiche aussi les autres article qui n'a fait pas la même référence, et fait des calcules.

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > accent19811 Messages postés 105 Date d'inscription mercredi 4 janvier 2012 Statut Membre Dernière intervention 28 mai 2023
1 avril 2017 à 20:51

Re,

Dim Ref_achat  As String
Dim Ref_vente  As String
Dim prixachat As Double
Dim prixvente As Double
Dim prixsolde As Double
Dim flg_OK As Boolean

Ref_Cherch = ""
prixachat = 0
prixvente = 0
prixsolde = 0

If Liste2.Rows <> 1 Then
    For y = 1 To Liste2.Rows - 1
        Ref_vente = Liste2.TextMatrix(y, 0)
        prixvente = Liste2.TextMatrix(y, 1)
        flg_OK = False
        For i = 1 To Liste1.Rows - 1
            Ref_achat = Liste1.TextMatrix(i, 0)
            prixachat = Liste1.TextMatrix(i, 1)
            If Ref_achat = Ref_vente Then
                prixsolde = prixvente - prixachat
                Liste3.AddItem Ref_vente & vbTab & prixachat & vbTab & prixvente & vbTab & prixsolde
                flg_OK = True
                Exit For
            End If
        Next i
        If Not flg_OK Then      'pas de prix achat
            prixachat = 0
            Liste3.AddItem Ref_vente & vbTab & prixachat & vbTab & prixvente & vbTab & prixvente
        End If
    Next y
End If

accent19811 Messages postés 105 Date d'inscription mercredi 4 janvier 2012 Statut Membre Dernière intervention 28 mai 2023
1 avril 2017 à 20:59

Bonjour,

merci beaucoup.

Je suis très heureux de votre réponse

Re,

Je regarde demain pour le projet taxi

accent19811 Messages postés 105 Date d'inscription mercredi 4 janvier 2012 Statut Membre Dernière intervention 28 mai 2023
1 avril 2017 à 21:30

Bonjour,

Merci l'autre fois,
Je suis en attente pour votre aide

Discussions similaires

Belote à 6 joueurs

liste de noms par ordre alphabétique

ou sont les bananes ?

Freebox bloquée à l'étape 6

problème à l'ouverture de yahoomail

Discussions similaires

Newsletters