Discussion :

[ImedBenMansour]

comment créer 1 champ arborescence dans forms 6i

[JerryMouse]

Crée un Group d'enregistrement avec une requete hierarchique du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Select 1 etat,1 Niv,Nom_Long,'K2' Icone ,Nom_Court, 0 Ordre
,Niveau_Base, rang, Societe
From Organigramme
Where Niveau_Base=1
And Societe= :Morale.Cod_Personne

Fait pointer la propriété Groupe d'enregistrement de ton Tree sur ton record Group.

Les données doivent être de la forme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Etatinitial    Profondeur    Libellé     Icône    Données
-1             1               'Voiture'    ''               'voiture'
0               2               'Honda'    ''               'civic'
1               1               'Avion'    ''               'avion'
0               2               'Boeing'    ''               '747'
0               2               'Boeing'    ''               '757'

Execute les deux instructions suivantes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  Ftree.POPULATE_TREE('ARBRE_ORG.Arbre');
    Status := Populate_Group('LORG') ;