Re: Rupture | Sujet: Re: Rupture par drcharly93 sur 21/8/2007 15:03:33
Bonjour,
Analyse de votre code - Vous remplissez la table - Vous supprimer le contenu (Le contraire serait meilleur) - Vous reparcourez la fichier (Déjà fait, etape 1) - Vous utilisez apparament des variables inutiles.
sMemo est une chaîne
Ind est un entier
//On vide la table
TableSupprimeTout(TABLE_Table1)
//On rempli la table
//Ici EXPRESS_REQ doit être trié sur Rubrik1
FichierVersTableMémoire(TABLE_Table1, EXPRESS_REQ_Requête1")
//On récupère la valeur de la rupture de la 1iere ligne
//La colonne Rubrik1 peut être cachée
Ind = 1
sMemo = Rubrik1[Ind]
On lit toutes les lignes de la table à partir de 2ieme ligne
BOUCLE
Ind ++
//Si on atteind la fin de la table
Si Ind > TABLE_Table1..Occurence Alors
//La table fini avec une ligne Rupture
TableAjouteLigne(TABLE_Table1, sMemo )
TABLE_Table1[Ind]..CouleurFond = RVB(205, 230, 255)
TABLE_Table1[Ind]..Hauteur = 20
SORTIR //On sort de la boucle fin de table atteinte
FIN
//Rubrik1 à changé
SI Rubrik1[Ind] <> sMemo Alors //Nouvelle rubrique
TableInsereLigne(TABLE_Table1, Ind + 1, sMemo )
TABLE_Table1[Ind+1]..CouleurFond = RVB(205, 230, 255)
TABLE_Table1[Ind+1]..Hauteur = 20
sMemo = Rubrik1[ind + 2] //On sauvegarde la nouvelle Rubrik1
Ind ++ On se positionne sur la ligne ajoutée
FIN
Ind ++ //On passe à la ligne suivante
FIN
Code saisi à la volée et pouvant comporter des erreurs
|
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|