OVH Cloud OVH Cloud

[WD75] Hlit suivant et Hlitprécédent

2 réponses
Avatar
R Vuille
Bonjour,
Je ne sais pas si mon code est correcte mais j'ai un phénomène bloquant sur
le code "précédent".
Pour le code suivant lorsque que j'arrive en fin de fichier sur la clé
Vpoids pas de problème je reçois le message Info
Par contre pour le bouton précédent cela plante le programme lorsque que
l'on arrive au début du fichier ;-( rien ne se passe ALT+F4 pour ressortir

Le fichier VdateHeure a comme identifiant unique IDVDateHeure
Vpoids est une clef avec doublon

J'ai probablement fait une erreur mais ou ?

//Bouton btn_précédent : appeler le précédent
Tpoids est un entier

TANTQUE Tpoids=0
HLitPrécédent(Vdateheure,VPoids)
Tpoids=Vdateheure.VPoids

SI Tpoids<>0 ALORS

SI HEnDehors() ALORS
Info ("aucune autre fiche à visualiser")
SINON
FichierVersEcran()
FIN
FIN
FIN

et l'autre

// Bouton btn_suivant : appeler le suivant
Tpoids est un entier

TANTQUE Tpoids=0
HLitSuivant(Vdateheure,VPoids)
Tpoids= Vdateheure.VPoids

SI Tpoids<>0 ALORS

SI HEnDehors() ALORS
Info ("aucune autre fiche à visualiser")
SINON
FichierVersEcran()
FIN
FIN
FIN

--
Merci et bonnes salutations
Pour m'écrire enlever le x xrmvuille@freesurf.ch
www.rmvuille.ch généalogie et site personnel.
Visitez www.saphirw.ch et donner vos impressions et idées

2 réponses

Avatar
Jipe Zero
Lestement mais bravement, "R Vuille" a tapoté .......

Bonjour,
Je ne sais pas si mon code est correcte mais j'ai un phénomène
bloquant sur le code "précédent".
Pour le code suivant lorsque que j'arrive en fin de fichier sur la clé
Vpoids pas de problème je reçois le message Info
Par contre pour le bouton précédent cela plante le programme lorsque
que l'on arrive au début du fichier ;-( rien ne se passe ALT+F4 pour
ressortir

Le fichier VdateHeure a comme identifiant unique IDVDateHeure
Vpoids est une clef avec doublon

J'ai probablement fait une erreur mais ou ?

//Bouton btn_précédent : appeler le précédent
Tpoids est un entier

TANTQUE Tpoids=0
HLitPrécédent(Vdateheure,VPoids)
Tpoids=Vdateheure.VPoids

SI Tpoids<>0 ALORS

SI HEnDehors() ALORS
Info ("aucune autre fiche à visualiser")
SINON
FichierVersEcran()
FIN
FIN
FIN



Tu peux arriver en dehors alors que ton tpoids=0
dans ce cas tu tournes en rond
il faut mettre tantque tpoids = 0 ET pas hendehors.... au debut de la boucle


et l'autre

// Bouton btn_suivant : appeler le suivant
Tpoids est un entier

TANTQUE Tpoids=0
HLitSuivant(Vdateheure,VPoids)
Tpoids= Vdateheure.VPoids

SI Tpoids<>0 ALORS

SI HEnDehors() ALORS
Info ("aucune autre fiche à visualiser")
SINON
FichierVersEcran()
FIN
FIN
FIN



Pareil

--
Jipe Zero
Avatar
R Vuille
Bonjour

Lestement mais bravement, "R Vuille" a tapoté ....... Ca oui !
Dur dur l'apprentisag de Windev :-)

Merci je vais essayer

--
Merci et bonnes salutations
Pour m'écrire enlever le x
www.rmvuille.ch généalogie et site personnel.
Visitez www.saphirw.ch et donner vos impressions et idées



"Jipe Zero" a écrit dans le message de
news:bk1tfu$6bl$
Lestement mais bravement, "R Vuille" a tapoté .......

> Bonjour,
> Je ne sais pas si mon code est correcte mais j'ai un phénomène
> bloquant sur le code "précédent".
> Pour le code suivant lorsque que j'arrive en fin de fichier sur la clé
> Vpoids pas de problème je reçois le message Info
> Par contre pour le bouton précédent cela plante le programme lorsque
> que l'on arrive au début du fichier ;-( rien ne se passe ALT+F4 pour
> ressortir
>
> Le fichier VdateHeure a comme identifiant unique IDVDateHeure
> Vpoids est une clef avec doublon
>
> J'ai probablement fait une erreur mais ou ?
>
> //Bouton btn_précédent : appeler le précédent
> Tpoids est un entier
>
> TANTQUE Tpoids=0
> HLitPrécédent(Vdateheure,VPoids)
> Tpoids=Vdateheure.VPoids
>
> SI Tpoids<>0 ALORS
>
> SI HEnDehors() ALORS
> Info ("aucune autre fiche à visualiser")
> SINON
> FichierVersEcran()
> FIN
> FIN
> FIN
>
Tu peux arriver en dehors alors que ton tpoids=0
dans ce cas tu tournes en rond
il faut mettre tantque tpoids = 0 ET pas hendehors.... au debut de la


boucle


> et l'autre
>
> // Bouton btn_suivant : appeler le suivant
> Tpoids est un entier
>
> TANTQUE Tpoids=0
> HLitSuivant(Vdateheure,VPoids)
> Tpoids= Vdateheure.VPoids
>
> SI Tpoids<>0 ALORS
>
> SI HEnDehors() ALORS
> Info ("aucune autre fiche à visualiser")
> SINON
> FichierVersEcran()
> FIN
> FIN
> FIN

Pareil

--
Jipe Zero