IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Treeview Constantes TreeRelationship


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé Avatar de totoche
    Inscrit en
    Janvier 2004
    Messages
    1 090
    Détails du profil
    Informations forums :
    Inscription : Janvier 2004
    Messages : 1 090
    Par défaut Treeview Constantes TreeRelationship
    Bonjour,

    Dans un treeview pour affecter le bon fils au bon parent???
    ma sortie :
    SITE
    ------COMPTA
    CLT
    FRS
    RECRUTEMENT
    SUPPORT
    ------RH
    ------INFORMATIQUE
    recrutement devrait être dans RH
    SUPPORT devrait être dans INFORMATIQUE

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    If Trim(mRS.Fields("parent")) = "0_" Then
       Set oNodex = TreeView1.Nodes.Add(, 1, Trim(mRS.Fields("key")), _
            Trim(mRS.Fields("text")), nImage, nSelectedImage)
             ElseIf Trim(mRS.Fields("parent")) = "1_" Then
     
       Set oNodex = TreeView1.Nodes.Add(Trim(mRS.Fields("parent")), tvwChild, _
                       Trim(mRS.Fields("key")), Trim(mRS.Fields("text")), nImage, nSelectedImage)
     
            Else 'ici comment localiser le bon père  
     
                    Set oNodex = TreeView1.Nodes.Add(Trim(mRS.Fields("parent")), tvwChild, _
                      Trim(mRS.Fields("key")), Trim(mRS.Fields("text")), nImage, nSelectedImage)
                End If
    Merci de votre aide

  2. #2
    Membre éprouvé Avatar de totoche
    Inscrit en
    Janvier 2004
    Messages
    1 090
    Détails du profil
    Informations forums :
    Inscription : Janvier 2004
    Messages : 1 090
    Par défaut
    Je peux faire ainsi
    _5 cle du noeud recrutement
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
       Select Case (mRS.Fields("text"))
                    Case "Recrutement"
                     Set oNodex = TreeView1.Nodes.Add("5_", tvwChild, _
                      Trim(mRS.Fields("key")), Trim(mRS.Fields("text")), nImage, nSelectedImage)
    Pas optimisé non ???

Discussions similaires

  1. TreeView et menu contextuel...
    Par agh dans le forum Composants VCL
    Réponses: 6
    Dernier message: 06/04/2009, 13h23
  2. où y a t il un tutorial pour le Treeview ??
    Par silvermoon dans le forum C++Builder
    Réponses: 4
    Dernier message: 09/12/2002, 14h30
  3. [ADO] Constantes des types de champ
    Par SpaceFrog dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 05/09/2002, 12h08
  4. [Pointer]Treeview.Data
    Par rbag dans le forum Composants VCL
    Réponses: 7
    Dernier message: 31/08/2002, 02h44
  5. Au sujet des constantes
    Par FranT dans le forum Langage
    Réponses: 8
    Dernier message: 09/08/2002, 12h03

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo