Bonjour,
Les Treeview m'ont toujours paru inutilement compliqués à programmer, et le mode d'emploi est écrit dans un langage qui mettent mes talents de linguiste en défaut.
Voici un code cependnt que j'utilise pour les nombreux Treeviews de mes programmes :
Chargement d'un arbre
SI action_en_cours = "Création" ALORS
ArbreSupprimeTout(Arbre1)
HChangeClé(EFCO_Clients,Nom_client)
HLitPremier(EFCO_Clients,EFCO_Clients.Nom_client)
TANTQUE PAS HEnDehors
QUAND EXCEPTION DANS
ArbreAjoute(Arbre1,EFCO_Clients.Nom_client + TAB + EFCO_Clients.Prénom_client + TAB...
+ DateVersChaine(EFCO_Clients.Date_de_naissance) + TAB + EFCO_Clients.IDEFCO_Clients)
HLitSuivant(EFCO_Clients,EFCO_Clients.Nom_client)
FAIRE
ExceptionActive()
FIN
Récupérations des données :
babouin2 est une chaîne
Ch est une chaîne = ArbreSelect(Arbre1)
SELON Provenance
CAS "Dossier" :
//Commence le transfert depuis l'arbre
Dossier_bancaire.Nom_Client = ExtraitChaîne(Ch,1)
Dossier_bancaire.Prénoms_Client = ExtraitChaîne(Ch,2)
Dossier_bancaire.Date_de_naissance = ChaîneVersDate(ExtraitChaîne(Ch,3) )
EFCO_Clients.IDEFCO_Clients = ExtraitChaîne(Ch,4)
HChangeClé(EFCO_Dossier_Client,IDEFCO_Dossier_Client)
HLitRecherche(EFCO_Dossier_Client,IDEFCO_Dossier_Client,EFCO_Clients.IDEFCO_Clients)
HChangeClé(EFCO_Dossier_Client,Nom_Client)
Ma_position = HSauvePosition(EFCO_Dossier_Client)
FichierVersEcran()
Groupe_Fichier..Modifié = Faux
informations
RETOUR
etc.
BIen cordialement,
Jacques De Schryver
nb : Si tu trouve plus simple, tu me le signales, svp. |