* To Jump to and expand if type('oTV.Nodes(cSomeSpecificKey).key')=="C" * The node with cSomeSpecificKey exists in oTV if oTV.Nodes(cSomeSpecificKey).text="1MHG" * cSomeSpecificKey has the required text. oTV.Nodes(cSomeSpecificKey).Selected=.t. && This should expand it *!*oTV.SelectedItem.Expanded=.t. && IF it needs to be assured else endif &&oTV.Nodes.(cSomeSpecificKey).text="1MHG" endif &&type('oTV.Nodes(cSomeSpecificKey).key')=="C"
>THIS.oletreeview.nodes.clear() >WITH THIS.oletreeview.nodes > .ADD(,tvwFirst,'File_Name'+'_'+'0000',thisform.Al3_file) > .ADD('File_Name'+'_'+'0000',tvwChild,'Message1'+'_'+'0000','Message(1)') > SELE Al3Parnt > SET ORDER TO 0 > SCAN > DO CASE > CASE Al3Parnt.cself = "1MHG" && message header > .ADD('Message1'+'_'+'0000',tvwChild,al3parnt.ckey,TRIM(al3Parnt.cSelf)) > *Now expand the 1MHG Node somehow > CASE Al3Parnt.cself = "2TRG" && new transaction > .ADD('Message1'+'_'+'0000',tvwChild,'2TRG'+'_'+SEQ,'Transaction('+ALLTRIM(STR(al3Parnt.ntran))+')') > CASE Al3Parnt.cself = "3MTG" && message Trailer > .ADD('Message1'+'_'+'0000',tvwChild,al3parnt.ckey,LEFT(TRIM(al3Parnt.cSelf),4)) > CASE Al3Parnt.cPARENT = "A0" && this record's parent 'branch' A0 is always top level branch > .ADD('2TRG'+'_'+SEQ,tvwChild,al3parnt.ckey,TRIM(Al3Parnt.label)) > OTHERWISE > .ADD(Al3Parnt.cp_id, tvwChild, ; > al3Parnt.ckey,TRIM(Al3Parnt.label)) > ENDCASE > ENDSCAN >ENDWITH >>