Information générale
Catégorie:
Contrôles ActiveX en VFP
HI Doug !
Thank you for your help.
There is the first success with "Draging and droping"
But i'm still to stupid to set the expanded property when adding nodes !
Invalid parameter, invalid or unknown name ...
Here is my code to generate the treeview.
I think i have to set the property expanded = .T. after i do an nodes.add
(or scan...endscan when finished with generating ???)
Can you please tell me the correct systax for coding and where to put it in ?
Best regards
Albert
dimension ursprung(100)
dimension ursprung_alt(100)
thisform.pageframe1.page2.m_treeview.Nodes.Clear
****************************************************************************************************************
*my data
* stufe oberobjekt objekt uo_bezeichnung
* 1 b1 b1 building
* 1 b1 f1 floor1
* 2 f1 r1 room1 in floor1
* 3 r1 e1 environment e1 in room1 in floor1
* 2 f1 r2 room2 in floor1
* 1 b1 f2 floor2
* 2 f2 r22 room22 in floor2
* 3 r22 e22a environment e22a in room r22 in floor2
* 3 r22 e22b environment e22b in room r22 in floor2
* 1 b1 f3 floor 3
*
select struktur
* build startnode ***********************************************************************
zaehler = 0
aktuelle_stufe = 1
ursprung(1) = "root"
ursprung_alt(1) = "root"
*header record (building)
thisform.pageframe1.page2.m_treeview.nodes.add(,,ursprung,"Kopf-Objekt " + struktur.oberobjekt + " " + struktur.ob_bezeichnung)
*now structure of the biulding
do while .not. eof()
*key
node = "node"+alltrim(str(struktur.satznr))
*Untergeordnetes objekt !!
do case
case struktur.stufe = 1
aktuelle_stufe = struktur.stufe
ursprung(1) = "root"
ursprung_alt(1) = "root"
** build node ***
thisform.pageframe1.page2.m_treeview.nodes.add(ursprung (aktuelle_stufe),4,node,;
"Stufe"+ str(aktuelle_stufe,2) + " Pos= " + padl(trans(struktur.objposition),4,' ') + " Objekt " + ALLTRIM(struktur.objektnr) + " " + struktur.uo_bezeichnung)
case struktur.stufe > aktuelle_stufe and struktur.stufe > 1
aktuelle_stufe = struktur.stufe
** build node ***
thisform.pageframe1.page2.m_treeview.nodes.add(ursprung(aktuelle_stufe),4,node,;
"Stufe"+ str(aktuelle_stufe,2) + " Pos= " + padl(trans(struktur.objposition),4,' ') + " Objekt "+ ALLTRIM(struktur.objektnr) + " " + struktur.uo_bezeichnung)
case struktur.stufe = aktuelle_stufe and struktur.stufe > 1
aktuelle_stufe = struktur.stufe
** build node ***
thisform.pageframe1.page2.m_treeview.nodes.add(ursprung(aktuelle_stufe),4,node,;
"Stufe"+ str(aktuelle_stufe,2) + " Pos= " +padl(trans(struktur.objposition),4,' ') + " Objekt "+ ALLTRIM(struktur.objektnr) + " " + struktur.uo_bezeichnung)
case struktur.stufe < aktuelle_stufe and struktur.stufe > 1
aktuelle_stufe = struktur.stufe
** build node ***
thisform.pageframe1.page2.m_treeview.nodes.add(ursprung_alt(aktuelle_stufe),4,node,;
"Stufe"+ str(aktuelle_stufe,2) + " Pos= " + padl(trans(struktur.objposition),4,' ') + " Objekt "+ ALLTRIM(struktur.objektnr) + " " + struktur.uo_bezeichnung)
endcase
*next record
skip 1 in struktur
if not eof()
* prüfen ob Sprung in nächste Stufe
if struktur.stufe > aktuelle_stufe
ursprung_alt(aktuelle_stufe) = ursprung(aktuelle_stufe)
ursprung(struktur.stufe) = node
endif
* prüfen ob Sprung in eine vorherige Stufe
if struktur.stufe < aktuelle_stufe
ursprung(struktur.stufe) = ursprung_alt(struktur.stufe)
endif
endif
enddo
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement