Vraag: Hoe doe ik een for loop in een for loop in Visual basic 6.0?

[Int]

Het Programma moet een XML bestand kunnen laden in een TreeView.
De tree moet getoond worden in het treeview.

Ik heb een XML document daarin staat de structuur zoals die gelezen moet worden in het treeview applicatie. Dus binnen in syntree moet de controls doorgelopen worden en de child ervan moet worden toegevoegd in de tree. Dus binnen in Control moet de group doorgelopen worden en child ervan toegevoegd in de tree. Dus binnen in group moet de subgroup doorgelopen worden en child ervan toegevoegd in de tree. Dus binnen in subgroup moet object doorgelopen worden en de child ervan toegevoegd in de tree.
Dus binnen in object moet tab worden doorgelopen en de child ervan toegevoegd in de tree. Dus binnen in tab moeten de var worden doorgelopen en de child ervan toegevoegd in de tree. Binnen in Var moeten de kolommen worden doorgelopen en de kolommen moeten toegevoegd worden in de tree.


Behoort een for-loop in een for-loop te worden uitgevoerd?
Behoort een for-loop afzonderlijk te worden uitgevoerd?

    For Each objGroupElement In objControlElement.childNodes
      populateTreeWithChildren objGroupElement
    Next

CODE XML

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<syntree>
<control dept=1 title="Multimo"> </control> 
	<group dept=2 title="klimato"> </group> 
		<subgroup dept=3 title="Metinga">
			<obj title="Metingabox">
				<tab= "Uitlezing">
					<var title="Kamertemperatuur meetbox[C}">
						<kolomnaam>afdeling1</kolomnaam>
						<kolomnaam>afdeling2</kolomnaam>
						<kolomnaam>afdeling3</kolomnaam>
						<kolomnaam>afdeling4</kolomnaam>
						<kolomnaam>afdeling5</kolomnaam>
						<kolomnaam>afdeling6</kolomnaam>
						<kolomnaam>afdeling7</kolomnaam>
					</var>
					<var title="Dauwpunttemperatuur meetbox[C]">
						<kolomnaam>afdeling1</kolomnaam>
						<kolomnaam>afdeling2</kolomnaam>
						<kolomnaam>afdeling3</kolomnaam>
						<kolomnaam>afdeling4</kolomnaam>
						<kolomnaam>afdeling5</kolomnaam>
						<kolomnaam>afdeling6</kolomnaam>
						<kolomnaam>afdeling7</kolomnaam>
					</var>
					<var tilte="Luchtvochtigheid meetbox[%]">
						<kolomnaam>afdeling1</kolomnaam>
						<kolomnaam>afdeling2</kolomnaam>
						<kolomnaam>afdeling3</kolomnaam>
						<kolomnaam>afdeling4</kolomnaam>
						<kolomnaam>afdeling5</kolomnaam>
						<kolomnaam>afdeling6</kolomnaam>
						<kolomnaam>afdeling7</kolomnaam>
					</var>
					<var title="vochtdeficit meetbox[g/kg]">
						<kolomnaam>afdeling1</kolomnaam>
						<kolomnaam>afdeling2</kolomnaam>
						<kolomnaam>afdeling3</kolomnaam>
						<kolomnaam>afdeling4</kolomnaam>
						<kolomnaam>afdeling5</kolomnaam>
						<kolomnaam>afdeling6</kolomnaam>
						<kolomnaam>afdeling7</kolomnaam>
					</var>
					<var title="vochtdeficit meetbox[g/m3]">
						<kolomnaam>afdeling1</kolomnaam>
						<kolomnaam>afdeling2</kolomnaam>
						<kolomnaam>afdeling3</kolomnaam>
						<kolomnaam>afdeling4</kolomnaam>
						<kolomnaam>afdeling5</kolomnaam>
						<kolomnaam>afdeling6</kolomnaam>
						<kolomnaam>afdeling7</kolomnaam>
					</var>
					<var title="Meetbox CO2[ppm]">
						<kolomnaam>afdeling1</kolomnaam>
						<kolomnaam>afdeling2</kolomnaam>
						<kolomnaam>afdeling3</kolomnaam>
						<kolomnaam>afdeling4</kolomnaam>
						<kolomnaam>afdeling5</kolomnaam>
						<kolomnaam>afdeling6</kolomnaam>
						<kolomnaam>afdeling7</kolomnaam>
					</var>
					<var title="Meetbox in afdeling">
						<kolomnaam>afdeling1</kolomnaam>
						<kolomnaam>afdeling2</kolomnaam>
						<kolomnaam>afdeling3</kolomnaam>
						<kolomnaam>afdeling4</kolomnaam>
						<kolomnaam>afdeling5</kolomnaam>
						<kolomnaam>afdeling6</kolomnaam>
						<kolomnaam>afdeling7</kolomnaam>
					</var>
					<var title="Status meetboxventilator">
						<kolomnaam>afdeling1</kolomnaam>
						<kolomnaam>afdeling2</kolomnaam>
						<kolomnaam>afdeling3</kolomnaam>
						<kolomnaam>afdeling4</kolomnaam>
						<kolomnaam>afdeling5</kolomnaam>
						<kolomnaam>afdeling6</kolomnaam>
						<kolomnaam>afdeling7</kolomnaam>
					</var>
					<var title="Status meetbox">
						<kolomnaam>afdeling1</kolomnaam>
						<kolomnaam>afdeling2</kolomnaam>
						<kolomnaam>afdeling3</kolomnaam>
						<kolomnaam>afdeling4</kolomnaam>
						<kolomnaam>afdeling5</kolomnaam>
						<kolomnaam>afdeling6</kolomnaam>
						<kolomnaam>afdeling7</kolomnaam>
					</var>
				</tab>
			</obj> 
		</subgroup>
	</group>          
</control> 
</syntree>

CODE VISUAL BASIC 6.0

 Set tvwRoot = TreeView1.Nodes.Add()
    For Each objControlElement In objectSyntreeRoot.childNodes
      populateTreeWithChildren objControlElement
    Next
      
    For Each objGroupElement In objectSyntreeRoot.childNodes
      populateTreeWithChildren objGroupElement
    Next   

    For Each objSubgroupElement In objectSyntreeRoot.childNodes
      populateTreeWithChildren objSubgroupElement
    Next
      
    For Each objObjectElement In objectSyntreeRoot.childNodes
      populateTreeWithChildren objObjectElement
    Next
    
    For Each objTabElement In objectSyntreeRoot.childNodes
      populateTreeWithChildren objTabElement
    Next
     
    For Each objVarElement In objectSyntreeRoot.childNodes
      populateTreeWithChildren objVarElement
    Next