I am struggling a bit on filling a treeview. I can fill the root entries ok but get stuck on adding the child nodes. I have a view with mfg as the root and need to add model as childs to mfg. I have looked at the samples that came with VFP but it uses a recursive call that I want to avoid if possible. Any suggestions for the loop will help.

WITH This
  .oleEquipTree.ImageList = .oleImagesList
  lcMfgKey = "_M_" + EquipView.Mfg
  lcMfgText = EquipView.Mfg
  loLastNode = .oleEquipTree.Nodes.Add(,,lcMfgKey ,lcMfgText,lcImage ,lcSelectedImage)
  SKIP IN EquipView
  SCAN REST
    lcMfgKey = "_M_" + EquipView.Mfg
    lcModelKey = "_D_" + EquipView.Model
    lcMfgText = EquipView.Mfg
    lcModelText = EquipView.Model
    DO CASE
      CASE NOT loLastNode.Key = lcMfgKey
        * Gotta be a root entry I hope
        loLastNode = .oleEquipTree.Nodes.Add(,, lcMfgKey, lcMfgText,lcImage ,lcSelectedImage)
      CASE NOT loLastNode.Key = lcModelKey
        * This Part gives me like keys!!
        loLastNode = .oleEquipTree.Nodes.Add(lcMfgKey,4, lcModelKey, lcModelText,lcImage ,lcSelectedImage)			
      ENDCASE
...