ник: pstrkim
Пишу программу для вывода потомков выбранного из TreeView узла в ListView:
Dim anyNode As Node
Dim kidNode As Node
Dim inCounter As Integer
' lv - это ListView, tvM - это TreeView
Set anyNode = tvM.SelectedItem
If anyNode.Children <> 0 Then
Set kidNode = anyNode.Child
inCounter = kidNode.FirstSibling.Index
While inCounter <> kidNode.LastSibling.Index
Set itmX = lv.ListItems.Add(, , tvM.Nodes(inCounter).Text)
inCounter = tvM.Nodes(inCounter).Next.Index
Wend
End If
Проблема в том, что выводятся все потомки кроме одного последнего
Где здесь может быть ошибка?