WDForge.org - Forums

Re: treeview

Sujet: Re: treeview
par drcharly93 sur 23/3/2006 18:53:11

Bonsoir,

Sauf erreur de ma part votre code nécessite un poil d'optimisation

Vous faîtes carrément une requête par collaborateur_plan
-Ressources reseau utilisée inutilement
-Temp d'execution de la procédure ralenti bêtement

Créer plutôt une requête qui va vous retourner tous les enregistrements voulues.

i est un entier
j est un entier
sListe est une chaine
Rs est une source de données

//On créer la liste des collaborateurs
POUR j = 1 A i 
 Si sListe <> "" alors sListe += ","
 sLite += "'" + r[j] + "'"
Fin

Ch_sql2 = " SELECT date_plan"
Ch_sql2 +=" FROM PLANNING "
ch_sql2 +=" WHERE collaborateur_plan IN (" + sListe + ")"

//on recupere en une seule fois le résultat
Si pas HExecuteRequeteSQL(Rs,HRequeteDefaut,Ch_sql2) Alors
 Erreur(HErreurInfo())
 Retour
Fin

//on parcours en memoire tous les enregistrements
Pour tous RS
  Arbre1[R2.collaborateur_plan + TAB +DateVersChaîne(SQLCol"R2",1))]..Couleur = iVertFoncé
Fin