Discussion :

[laura_duj]

Bonjour,

Je fais appel à vous car je suis bloqué sur une partie de code.

J'ai deux fenetres, une FenetrePrincipale et l'autre FenetreInterne.
J'ai un bouton "Ajouter" dans ma FenetrePrincipale qui me permet d'accéder à ma fenêtre interne.
Dans la fenêtre interne je sélectionne des lignes dans ma table TableClientInterne que je renvoi dans la table TableClient de ma FenetrePrincipale.

Ma table TableClientInterne possède une colonne non visible "Com".
Si les valeurs de ma colonne CodeCom dans la table de ma FenetrePrincipale sont égales à une valeur dans la colonne CodeCom dans ma fenêtreInterne,
la colonne Com = 1 sinon elle est égale à 0.

Je vous joins mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
j, i est un entier
j = TableOccurrence(FenetrePrincipale.TableClient)
i = TableOccurrence(TableClientInterne)
i = 1
 
POUR TOUTE LIGNE j DE FenetrePrincipale.TableClient
	SI TableClientInterne.CodeCom[i] = FenetrePrincipale.TableClient.CodeCom[j] ALORS
		TableClientInterne.Com[i]=1
	SINON 
		TableClientInterne.Com[i]=0
	FIN
	i++
FIN

Cependant celui-ci ne fonctionne pas correctement car si je sélectionne les deux premières lignes et la 4eme par exemple eh bien seulement mes deux premières lignes
sont égale à 1 et toutes les autres à 0 !

Pouvez-vous m'aider svp ?

Merci par avance.

[tbc92]

Dans ton code, ajoute ceci entre la ligne 12 et la ligne 13 :

Code :

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

1
2
 
trace ( " i=" + i + " ; j=" + j)

ça affichera les valeurs de i et j à chaque passage.

A partir de là, tu devrais comprendre ton erreur.

[laura_duj]

Merci pour votre réponse rapide.

J'ai modifié mon code, c'est pas très propre mais ça fonctionne.

Dans le sinon j'ai rajouté un i++ et un Goto reco
et j'ai mis reco: juste avant le si.

[Invité]

Bonjour,

Les lignes 2 et 3 n'ont pas d'utilité dans ce qui est fait, après, j'aurais remplacé

Code :

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

POUR TOUTE LIGNE j DE FenetrePrincipale.TableClient

par

Code :

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

POUR j=1 _A_ FenetrePrincipale.TableClient..Occurrence

En ce qui concerne la recherche d'une valeur dans un autre champ table, je ferais appel à la fonction TableCherche.

[tbc92]

Si tu as l'assurance que tes 2 tables sont triées sur la colonne CodeCom, alors ton code doit fonctionner. Attention, ça ne fonctionnera plus si le tri change. ( Par exemple si l'utilisateur clique sur un entête de colonne avant de lancer ce traitement)

[laura_duj]

D'accord, je pense que l'utilisateur n'aura pas à toucher l'en-tête...
Merci beaucoup !