Discussion :

[Cazaux-Moutou-Philippe]

Bonjour

Dans une table, j'ai une colonne en saisie avec case à cocher.
Si je fais à la main tout marche bien, la coche apparaît. Mais avec un bouton, je voudrais faire cocher toutes les lignes.

Je fais ça mais la coche n'apparaît jamais alors que info m'affiche bien 1.
Comment faire ?

Merci

Code :

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

1
2
3
4
5
6
7
	POUR TOUTE LIGNE DE TABLE_Pieces_un_dp
		Info(TABLE_Pieces_un_dp.LDP_Etat[2])
		TABLE_Pieces_un_dp.LDP_Etat[2]..Valeur = Vrai
	    TABLE_Pieces_un_dp.LDP_Etat = 1
 
		Info(TABLE_Pieces_un_dp.LDP_Etat)
	FIN

[Jannus]

Tu as pensé à réafficher la table après ?

[Cazaux-Moutou-Philippe]

oui en faisant ca

Code :

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

TableAffiche(TABLE_Pieces_un_dp)

mais rien a faire
comment faire ?

[Cazaux-Moutou-Philippe]

si je coche mes lignes, une par une a la main, ca marche

alors pourquoi la boucle ne le fait pas ?

[Jannus]

Le code me semble erroné.
Pour modifier une valeur dans une table, il faut l'indice de la ligne or ici il n'y en a pas.
Il faut quelque chose comme ceci :

Code :

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

1
2
3
4
5
 
bt est un entier
POUR bt = 1 A TableOccurrence(Table1)
    Table1.Colonne1[bt]=Table1.Colonne1[bt]+bt
FIN

[Emmanuel Lecoester]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
TableAjoute(TABLE_Table2,Vrai)
TableAjoute(TABLE_Table2,Vrai)
TableAjoute(TABLE_Table2,Faux)
TableAjoute(TABLE_Table2,Vrai)
TableAjoute(TABLE_Table2,Faux)
 
 
POUR TOUTE LIGNE DE TABLE_Table2
    TABLE_Table2.COL_Colonne1 = Faux
FIN

fonctionne parfaitement sous WD10.