PROCEDURE affichagetable2()
clé est une chaîne=HFiltre(Entrées,boirede,Année)
HLitPremier (Entrées,clé)
TANTQUE H.trouve
SI EnStock.IDvin<>Entrées.IDvin ALORS
ListeSupprimeTout(Table_bouteilles_consommables)
FIN
HLitRecherche(EnStock,EnStock.IDentrées,Entrées.IDentrées)
HLitRecherche(Vin,Vin.IDvin,EnStock.IDvin)
HLitRecherche(Région,Région.Région,Vin.région2)
HLitRecherche(Pays,IDPays,Région.idpays)
HLitRecherche(Appellations,Appellations.Région,Région.région)
TableAjoute(Table_bouteilles_consommables,EnStock.qtestock+TAB+Vin.Nom+TAB+Vin.Catégorie+TAB+Vin.Couleur+TAB+Appellations.Appellation+TAB+Région.région+TAB+Pays.pays+TAB+Entrées.boirede+TAB+Entrées.boirejusque)
HLitSuivant(Entrées)
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=3428&post_id=14526