Folgende Voraussetzungen:
- Property ‚PathSeparator‘ beim TreeView muss ‚‘ sein.
- Die Datensätze sollten sortiert sein.
Das angefügte Coding verwende ich in meinen Programmen - sollte auch bei Dir funktionieren:
With trv.Nodes
While Not clsN.NothingOrEOF(rec)
l = InStrRev(rec!Text, "\")
If l \> 1 Then
Call .Add(Left$(rec!Text, l - 1), tvwChild, rec!Text, Mid$(rec!Text, l + 1))
Else
Call .Add(, , rec!Text, rec!Text)
End If
Call rec.MoveNext
Wend
End With
Ob es performant ist, weiss ich nicht … es geht auf jedenfall schnell genug. Die Performance kann man zusätzlich steigern, wenn man den TreeView auf ‚Visible=False‘ setzt und nachher wieder einblendet.
greets from michL (vienna)