PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → Minimiser le code
Minimiser le code
Débuté par jll, 21 oct. 2005 11:42 - 4 réponses
#1
Posté le 21 octobre 2005 - 11:42
Bonjour à tous

Je dois faire un traitement identique sur plusieurs tables =>

hlitpremier(Tbl1)
tantque pas hendehors(tbl1)
si tbl1.champ1="ok" alors
tbl1.champ2="KO"
fin
hlitsuivant(tbl1)
fin

hlitpremier(Tbl2)
tantque pas hendehors(tbl2)
si tbl2.champ1="ok" alors
tbl2.champ2="KO"
fin
hlitsuivant(tbl2)
fin

ce traitement est identique pour tbl1 à tbl7 mais il y a une page de si

est-il possible de simplifier avec un genre d'alias ou un & comme dans le vieux clipper ou une sorte d'indirect comme en excel

merci de l'aide
A+
Jean-Louis
#2
Posté le 21 octobre 2005 - 13:04
Bonjour,

tu peux utiliser les indirections à la place de & du très bon vieux clipper... et visual object

hlitPremier( {nomfichier, indFichier})
Si { nomfichier + ".champ1",indRubrique} = "ok" ...
{ nomfichier + ".champ2", indRubrique} = "KO"
Fin
HlitSuivant( {nomfichier, indFichier})

Cordialement,

C.AUBRY
#3
Posté le 21 octobre 2005 - 13:57
Bonjour,

Regarde dans l'aide au mot clé "Indirection" pour plus de détails

Ca donnera un truc du genre


hlitpremier(NomFich)
tantque pas hendehors(NomFich)
si {NomFich+".champ1}="ok" alors
{NomFich+".champ2}="KO"
fin
hlitsuivant(NomFich)
fin


ou NomFich="Tbl1" ou "Tbl2"
ou encore mieux
NomFich="Tbl"+Numeriqueverchaine(IndiceFich)


--
Francis MOREL
http://wdmlist.free.fr/
#4
Posté le 21 octobre 2005 - 14:51
oui

cherche le mot indirection dans l'aide

cordialement JCP



"Lefebvre Jean-Louis" <jll@cpee.be> a écrit dans le message de news:
4358a2fc$1@news.pcsoft.fr...


Bonjour à tous

Je dois faire un traitement identique sur plusieurs tables =>

hlitpremier(Tbl1)
tantque pas hendehors(tbl1)
si tbl1.champ1="ok" alors
tbl1.champ2="KO"
fin
hlitsuivant(tbl1)
fin

hlitpremier(Tbl2)
tantque pas hendehors(tbl2)
si tbl2.champ1="ok" alors
tbl2.champ2="KO"
fin
hlitsuivant(tbl2)
fin

ce traitement est identique pour tbl1 à tbl7 mais il y a une page de si

est-il possible de simplifier avec un genre d'alias ou un & comme dans le
vieux clipper ou une sorte d'indirect comme en excel

merci de l'aide
A+
Jean-Louis


#5
Posté le 21 octobre 2005 - 15:17
voir l'indirection

du genre

dwCpt est entier

pour dwCpt = 1 à 7
trace({"Tbl" + dwCpt}..occurrence)
fin

bon courage ;)

"Lefebvre Jean-Louis" <jll@cpee.be> a écrit dans le message de news:
4358a2fc$1@news.pcsoft.fr...


Bonjour à tous

Je dois faire un traitement identique sur plusieurs tables =>

hlitpremier(Tbl1)
tantque pas hendehors(tbl1)
si tbl1.champ1="ok" alors
tbl1.champ2="KO"
fin
hlitsuivant(tbl1)
fin

hlitpremier(Tbl2)
tantque pas hendehors(tbl2)
si tbl2.champ1="ok" alors
tbl2.champ2="KO"
fin
hlitsuivant(tbl2)
fin

ce traitement est identique pour tbl1 à tbl7 mais il y a une page de si

est-il possible de simplifier avec un genre d'alias ou un & comme dans le
vieux clipper ou une sorte d'indirect comme en excel

merci de l'aide
A+
Jean-Louis


→ Revenir à WINDEV 2024