Re: Boucle et ruptures
Posté par Sogestion le 20/8/2007 11:46:27
Bonjour,
Voici le code d'une procédure qui répond a votre recherche
et qui fonctionne correctement
L'ajout d'une ligne vierge dans une table mémoire après un groupe d'enregistrements répondant a un même critère
Description du test
Nom du Fichier : Contacts
Nom des rubriques : Nom, Ville
Rubrique clé : Ville
Cordialement
Albert
Voici le code d'une procédure qui répond a votre recherche
et qui fonctionne correctement
L'ajout d'une ligne vierge dans une table mémoire après un groupe d'enregistrements répondant a un même critère
Description du test
Nom du Fichier : Contacts
Nom des rubriques : Nom, Ville
Rubrique clé : Ville
// Initialisation des variables
sLocalité est une chaîne
nLgn est un entier
HLitPremier(Contacts,Ville)
sLocalité = Contacts.Ville
// Parcours du fichier
TANTQUE PAS HEnDehors(Contacts)
HLitRecherchePremier(Contacts, Ville, sLocalité, hGénérique)
TANTQUE HTrouve(Contacts)
// Ajout dans la table de l'enregistrement trouvé
TableAjouteLigne(TABLE_Contacts, Contacts.Nom, Contacts.Ville)
HLitSuivant(Contacts,Ville)
FIN
// Ajout d'une ligne vierge < Rupture >
nLgn = TableAjouteLigne(TABLE_Contacts)
// Propriétés de le ligne < Couleur/Hauteur >
TABLE_Contacts[nLgn]..CouleurFond = RVB(205, 230, 255)
TABLE_Contacts[nLgn]..Hauteur = 20
// Condition suivante
sLocalité = Contacts.Ville
FIN
Cordialement
Albert
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5339&post_id=22068