OVH Cloud OVH Cloud

Table et interrupteur

1 réponse
Avatar
Ducados
Bonsoir,
Je tourne en rond !!!
Dans ma fenêtre, en haut des critères de recherche, un bouton lance la
recherche et affiche une table avec rubrique liées au fichier "Client".
La 1er col de ma table est un interrupteur (rubrique également dans le
Fichier).
L'utilisateur a la possibilité de sélectionner 5 lignes Max. Ca fonctionne !
Ce que je voudrais, c'est avant de lancer une nouvelle recherche, remettre à
0 les interrupteurs qui on été sélectionnés pour réaliser l'impression., Ce
code fonctionne pour la sélection/Désélection, j'y avais ajouté les lignes
en commentaires mais c'est pas concluant.
Aurriez-vous une meilleure idée que de parcourir tout le fichier pour
remettre à 0 la rubrique SelImp.
Merci de vos lumiere.
Daniel

SI SelImp ALORS
SI xgNbImp < 5 ALORS
xgNbImp = xgNbImp + 1
// xgTabImp[xgNbImp]=HNumEnr(Mariage)
SINON
Erreur("Maximun : 5 lignes sélectionnées !!!")
SelImp = Faux
FIN
SINON
SI xgNbImp > 0 ALORS
// LOCAL
// i est un entier
// POUR i=1 A 10
// SI xgTabImp[i]=HNumEnr(Mariage) ALORS xgTabImp[i]=0
// i=i+1
// FIN
xgNbImp=xgNbImp-1
FIN
FIN

1 réponse

Avatar
JeAn-PhI
"Ducados" a écrit dans le message de news:
41ae40d0$0$44083$
Bonsoir,
Je tourne en rond !!!
Dans ma fenêtre, en haut des critères de recherche, un bouton lance la
recherche et affiche une table avec rubrique liées au fichier "Client".
La 1er col de ma table est un interrupteur (rubrique également dans le
Fichier).
L'utilisateur a la possibilité de sélectionner 5 lignes Max. Ca fonctionne
!
Ce que je voudrais, c'est avant de lancer une nouvelle recherche, remettre
à
0 les interrupteurs qui on été sélectionnés pour réaliser l'impression.,
Ce
code fonctionne pour la sélection/Désélection, j'y avais ajouté les lignes
en commentaires mais c'est pas concluant.
Aurriez-vous une meilleure idée que de parcourir tout le fichier pour
remettre à 0 la rubrique SelImp.
Merci de vos lumiere.
Daniel

SI SelImp ALORS
SI xgNbImp < 5 ALORS
xgNbImp = xgNbImp + 1
// xgTabImp[xgNbImp]=HNumEnr(Mariage)
SINON
Erreur("Maximun : 5 lignes sélectionnées !!!")
SelImp = Faux
FIN
SINON
SI xgNbImp > 0 ALORS
// LOCAL
// i est un entier
// POUR i=1 A 10
// SI xgTabImp[i]=HNumEnr(Mariage) ALORS xgTabImp[i]=0
// i=i+1
// FIN
xgNbImp=xgNbImp-1
FIN
FIN




essayez peut être avec cette syntaxe :
POUR i = 1 A TableOccurrence(NomTable)
NomTable.NomColonne[IndiceLigne] = Faux
FIN
TableAffiche(NomTable)

cdt

JeAn-PhI


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.804 / Virus Database: 546 - Release Date: 30/11/2004