PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV 2024 → Table fichier agir sur une ligne
Table fichier agir sur une ligne
Started by dfavier, Mar., 22 2006 4:48 PM - 4 replies
#1
Posted on March, 22 2006 - 4:48 PM
J'ai 2 tables T1 et T2

Je veux comparer toutes les lignes de T2 avec T1
Si l'enregistrement est présent dans T1
je veux modifier la couleur de la ligne T2 correspondante

merci d'avance

Daniel
#2
Posted on March, 22 2006 - 5:38 PM
Salut,

Essaie ce code :

I,Z,R sont des entiers; L est une chaîne
I=1; Z=TableOccurrence(T2)
TANTQUE I<Z

L=ColonneT2[I]
R=TableCherche(ColonneT1,L)
si R>0 ALORS T2[I]..CouleurFond=RVB(255,0,0)

I++
FIN

Est-ce que cela te suffit?
#3
Posted on March, 22 2006 - 5:38 PM
Bonjour,
Dans le code d'affichage d'une ligne de T2:
Si tablecherche(t1.Colonne,t2.colonne,vrai,1) <> -1 alors
// J'ai trouvé
MaTable.MaColonne[MaTable]..couleurfond = rouge
sinon
// J'ai pas trouvé
MaTable.MaColonne[MaTable]..couleurfond = idefaut
fin
#4
Posted on March, 22 2006 - 5:52 PM
Bonjour,

Je vous propose cette solution:

Nb, i est un entier
Res est un booléen

Nb = TableOccurence(T2)

POUR i=1 A Nb
Res = TableCherche(T1,T2[i],Vrai)
Si Res <> -1 ALORS
T2[i]..Couleur = iRougeClair
FIN
FIN

En espérant vous avoir aidé!!
Florence POUGET
#5
Posted on March, 22 2006 - 6:43 PM
Ca fonctionne parfaitement

Merci bcp.
Daniel
→ Go back to WINDEV 2024