LOCAL loParentNode loParentNode = Thisform.oTree.Nodes( 1 ) DO WHILE VARTYPE( loParentNode ) = [O] Thisform.ProcessNodes( loParentNode ) loParentNode = loParentNode.Next ENDDOThis code in ProcessNodes()
LPARAMETERS toNode LOCAL loChildNode ? toNode.Text IF toNode.Children > 0 loChildNode = toNode.Child DO WHILE VARTYPE( loChildNode ) = [O] Thisform.ProcessNodes( loChildNode ) loChildNode = loChildNode.Next ENDDO ENDIF