Re: treeview
Posté par drcharly93 le 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.
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
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=3750&post_id=15847