Discussion :

[alex1005]

Bonjour,

Debutante sous windev, je cherche à supprimer des lignes d'une table sous condition.
Je m'explique j'ai une table qui se remplie par requete (2ere colonne) ensuite j'utilise le resultat d'une colonne pour en creer une 3 eme ( au moment de la creation il est necessaire d'avoir toutes mes lignes pour créer cette 3eme colonne) puis je voudrais supprimer des lignes de cette table mais à la condition que la somme de la 2eme colonne soit egale à zero. Et là j'y arrive mais il m'en supprime une sur deux

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
Z=TableOccurrence(TABLE_HistoDet)
POUR I= 1 A Z
SI I>Z ALORS RETOUR	
SI 	TABLE_HistoDet[I][2]..Valeur = 0 ALORS
	TableSupprime(TABLE_HistoDet,I)
	Z=TableOccurrence(TABLE_HistoDet) // Astuce que j'ai trouvé pour pas planter car le nombre de lignes de ma table diminue
	FIN
 
FIN

J'espere avoir été claire et je vous remarcie d'avance

[mail.spam]

Bonjour,

C'est le principe de "si je double le premier à quelle place je suis?"

Je m'explique.
Tu es sur la ligne 2, tu la supprime puis tu passe à la ligne 3.
Résultat la ligne 3 avant la suppression est devenue la ligne 2 donc quand tu passe à la ligne d'après c'est comme si tu passais à la ligne 4 avant suppression.

Bonne réflexion et bonne lecture.

[gancau]

Bonjour
Tu pourrais essayer

Code :

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

1
2
3
 pour toute ligne de TABLE_HistoDet
  si TABLE_HistoDet.col_2=0 alors tablesupprime(TABLE_HistoDet,TABLE_HistoDet[TABLE_HistoDet])
fin

Gancau

[frenchsting]

Bonjour,

Je ne vais pas paraphraser sylvain : je me suis déjà fait avoir sur ce coup-là (le coup du tableau, pas le coup du sylvain). Je te laisse méditer son délicat propos.

Mon intervention est simple ton code : SI I>Z ALORS RETOUR est inutile. La condition ne sera jamais remplie car le pour i... l'interdit.

[alex1005]

Merci pour vos reponses

gancau merci mais le code ne foctionne pas et je n'ai pas assez de niveau pour solutionner toute seule le probleme.

Et sinon après reflexion guidée par vos commentaire j'ai ce code qui marche nickel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Z=TableOccurrence(TABLE_HistoDet)
 
POUR I= 1 A Z
 
SI TABLE_HistoDet[I][2]..Valeur = 0 ALORS
TableSupprime(TABLE_HistoDet,I)
Z=TableOccurrence(TABLE_HistoDet) 
I = I-1
 
FIN
 
FIN

MERCI

[Nhaps]

Bonjour,

Que ton code fonctionne est une chose, qu'il soit lisible en est une autre.

Il faut que tu penses aux autres personnes qui liront ton code. Tu vas me dire, "oui mais c'est seulement pour moi", mais il faut prendre l'habitude de rendre un code lisible car un jour tu ne seras pas seule sur un projet.

Le code de gancau est une bonne piste, il ne fonctionne peut être pas directement mais essaye de le rendre fonctionnelle ( en utilisant la doc de pcsoft), ca peut t'être utile plus tard.

Nhaps

[frenchsting]

ce n'est pas très propre de tripoter la borne finale dans la boucle. Dans ton cas, il semble que cela fonctionne, pas sûr que ça soit le cas dans un autre langage.

Pire : on ne modifie jamais l'indice de la boucle !!!

Et si tu commences par la fin ?

[djejackk]

Bonjour,

Pour les parcours avec suppression, j'utilise toujours la syntaxe avec "DEPUIS FIN" (ou PAS -1 pour une boucle POUR).
Ça évite de toucher à l'indice de parcours en cours de boucle et à la borne (comme le dit Frenchsting, pas bon de tripoter ces éléments )

Code 1 avec le POUR original et PAS -1:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Z=TableOccurrence(TABLE_HistoDet)
 
POUR I= Z A 1 PAS -1
 
SI TABLE_HistoDet[I][2]..Valeur = 0 ALORS
TableSupprime(TABLE_HistoDet,I)
FIN
 
FIN

Code 2 avec un POUR TOUTE LIGNE et DEPUISFIN

Code :

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

1
2
3
4
5
6
7
8
 
POUR TOUTE LIGNE i de TABLE_HistoDet DEPUISFIN
 
SI TABLE_HistoDet[i][2]..Valeur = 0 ALORS
TableSupprime(TABLE_HistoDet,i)
FIN
 
FIN

Cordialement