Discussion :

[lololebricoleur]

Bonjour,

J'ai besoin d'appliquer un traitement (cocher un case) sur l'ensemble des ligne d'une table.

En toute logique, je voulais utiliser le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
SI MoiMême = Vrai ALORS
	POUR TOUTE LIGNE DE TABLE_CHAuffage
		TABLE_CHAuffage.COL_Modif = Vrai
	FIN
SINON
	POUR TOUTE LIGNE DE TABLE_CHAuffage
		TABLE_CHAuffage.COL_Modif = Faux
	FIN	
FIN

et bien ce code ne marche pas alors que celui-ci fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
SI MoiMême = 1 OU MoiMême = Vrai ALORS	
	HLitPremier(CHAuffage)
	TANTQUE PAS HEnDehors(CHAuffage)
		CHAuffage.CHA_Modif = Vrai
		HModifie(CHAuffage)
		HLitSuivant(CHAuffage)		
	FIN
SINON
	HLitPremier(CHAuffage)
	TANTQUE PAS HEnDehors(CHAuffage)
		CHAuffage.CHA_Modif = Faux
		HModifie(CHAuffage)
		HLitSuivant(CHAuffage)		
	FIN
FIN
 
TableAffiche(TABLE_CHAuffage)

Mais il est quand même plus complexe.

Quelqu'un aurait une explication svp ?

Merci

[WDKyle]

Bonsoir,

Et ceci non ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
SI MoiMême = Vrai ALORS
	POUR i = 1 _a_ TABLE_CHAuffage..Occurrence
		TABLE_CHAuffage[i].COL_Modif = Vrai
	FIN
SINON
	POUR i = 1 _a_ TABLE_CHAuffage..Occurrence
		TABLE_CHAuffage[i].COL_Modif = Faux
	FIN	
FIN

[Hemgé]

Bonjour

Tout d'abord, vous pouvez simplifier le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
POUR TOUTE LIGNE DE TABLE_CHAuffage
   TABLE_CHAuffage.COL_Modif = MoiMême
FIN

Ensuite, concernant votre question, l'aide précise :

Pour chaque ligne parcourue :

•<Nom du champ> renvoie l'indice de la ligne en cours. <Indice> permet également de connaître l'indice de la ligne en cours.
•<Nom du champ>[<Nom du champ>] renvoie toutes les colonnes séparées par des TAB. Cette syntaxe est équivalente à <Nom du champ>[<Indice>].
•<Nom de la colonne> renvoie la valeur de la colonne pour la ligne en cours de parcours.

Donc, évitez d'utiliser le nom du champ. N'utilisez que le nom de la colonne et a priori sans indice.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
POUR TOUTE LIGNE DE TABLE_CHAuffage
   COL_Modif = MoiMême
FIN

J'espère que ce sera bon comme cela.

Hemgé

[lololebricoleur]

WDKile, je vais tester.

Hemgé, j'ai déjà essayé sans le nom de la table mais le soucis c'est que j'ai plusieurs table dans la même fenêtre et que la colonne est présente dans chacune. Du coup, WD me dit qu'il y a un problème de confusion.

C'est quand même bizarre qu'un code aussi simple ne fonctionne pas non ?

[Hemgé]

Non, ce n'est pas particulièrement bizarre. C'est la situation qui est spécifique.

Il suffit de sélectionner la table et de passer à l'instruction POUR TOUTE LIGNE SELECTIONNEE.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
TableSelectPlus(TABLE_CHAuffage) //sans indice, toute la table est sélectionnée
POUR TOUTE LIGNE SELECTIONNEE DE TABLE_CHAuffage
   COL_Modif = MoiMême
FIN

[lololebricoleur]

Hemgé, ton code provoque une erreur. Toujours le problème d'ambiguité de nom

[lololebricoleur]

Bon, j'ai changé le nom de la colonne pour qu'elle soit unique et j'ai utilisé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
POUR TOUTE LIGNE DE TABLE_CHAuffage
	COL_Modif_Ch = MoiMême
FIN

Résultat, ça ne marche pas. il ne se passe rien. En occurrence, c'est une case à cocher. Je veux qu'en cochant une case qui fait office de "tout" ou "rien", les lignes de la table soient cochées ou décochées. Mais ça ne marche pas du tout !

[lololebricoleur]

La solution de WDKyle fonctionne en revanche. Merci de ton aide

[Hemgé]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
SI MoiMême = Vrai ALORS
	POUR i = 1 _a_ TABLE_CHAuffage..Occurrence
		TABLE_CHAuffage[i].COL_Modif = Vrai
	FIN
SINON
	POUR i = 1 _a_ TABLE_CHAuffage..Occurrence
		TABLE_CHAuffage[i].COL_Modif = Faux
	FIN	
FIN

pourrait / devrait être simplifié comme proposé précédemment, puisque cela affecte directement la valeur de MoiMême et évite le test SI / SINON

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
POUR i = 1 _a_ TABLE_CHAuffage..Occurrence
	TABLE_CHAuffage[i].COL_Modif = MoiMême
FIN

Cela étant, j'ai testé et effectivement, je n'ai pas trouvé le moyen de passer outre ce problème d'ambiguïté de nom
Mais vous auriez dû noter qu'il vous le signale dès l'éditeur de code ...!

Par contre, pour revenir à votre démarche initiale,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
POUR TOUTE LIGNE DE TABLE_CHAuffage
	TABLE_CHAuffage.COL_Modif = MoiMême
FIN

fonctionne sans problème.

Et, comme vous avez plusieurs tables qui utilisent les mêmes noms de colonne, il y a moyen de faire une procédure en utilisant l'indirection :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
sNomTable est une chaîne
sNomTable = "TABLE_CHAuffage"
 
POUR TOUTE LIGNE DE {sNomTable, indChamp} 
	{sNomTable + ".COL_Modif",indChamp} = Vrai 
FIN

(solution testée)

Hemgé

PS : un petit [Résolu] puisque vous aviez déjà une solution satisfaisante.

[lololebricoleur]

Merci des infos Hemgé,

Je confirme que le problème d’ambiguïté m'a toujours été signalé par l'éditeur de code (d'ailleurs, je n'ai jamais dis le contraire).

Pour ce qui est de la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
POUR TOUTE LIGNE DE TABLE_CHAuffage
	TABLE_CHAuffage.COL_Modif = MoiMême
FIN

Aussi étonnant que cela puisse sembler, elle ne fonctionne pas chez moi !

[Hemgé]

Je confirme que le problème d’ambiguïté m'a toujours été signalé par l'éditeur de code (d'ailleurs, je n'ai jamais dis le contraire)

Vous auriez pu le signaler d'emblée ...
Plus complètes sont vos informations, plus adéquate sera notre aide (et à moindre temps pour nous).

Pour ce qui est de la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
POUR TOUTE LIGNE DE TABLE_CHAuffage
	TABLE_CHAuffage.COL_Modif = MoiMême
FIN

Aussi étonnant que cela puisse sembler, elle ne fonctionne pas chez moi !

Cette solution devrait fonctionner et, en l'absence d'autres informations sur votre contexte, je ne peux pas m'avancer plus.

"elle ne fonctionne pas" : qu'est-ce que cela signifie ? Toujours un message d'erreur dans l'éditeur ou seulement au test ? Quel message ?

Par ailleurs, avez-vous été relire l'aide ?
Parce qu'a priori, dans l'esprit de la solution proposée par WKDyle, il suffit d'adapter ce parcours POUR TOUT en utilisant l'indice i (qui ne doit pas être déclaré).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
POUR TOUTE LIGNE i DE TABLE_CHAuffage
	TABLE_CHAuffage[i].COL_Modif = MoiMême
FIN

Avez-vous testé avec l'indirection (qui peut aussi être adaptée avec l'indice i) ?

Bon travail

Hemgé

[Kaal]

Bonjour,
Votre table "TABLE_CHAuffage" est une table sur fichier, c'est pour cette raison que votre code ne fonctionne pas.

Et dans ce cas, il faut d'abord modifier la source (le fichier) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
POUR TOUT CHAuffage
	CHAuffage.CHA_Modif = MoiMême
	HModifie(CHAuffage)	
FIN
 
TableAffiche(TABLE_CHAuffage)