Har lokaliseret fejlen, men ikke nogen fornuftig forklaring på hvorfor det går galt. Jeg har taget udgangspunkt i den TreeView - version omtalt i denne artikel :
http://www.eksperten.dk/artikler/890Med lidt få justeringer, som på ingen måde ændrer i den oprindelige kode, har jeg bygget videre på den nævnte database...
I det kodemodul ( som jeg overhovedet ikke har ændret ):
Private Sub ExplorerPane_NodeClick(ByVal Node As Object)
Stoppes programudførslen i den sidste del :
' LIDT BREADCRUMB CODING :-) --------------
Breadcrumbs = ExplorerPane.SelectedItem
Set nodItem = Node.Parent
Set nodRoot = Node.Root
If nodItem Is Nothing Then
Else
While Not nodItem = nodRoot
Breadcrumbs = nodItem.Text & "->" & Breadcrumbs
Set nodItem = nodItem.Parent
Wend
Breadcrumbs = nodRoot.Text & "->" & Breadcrumbs
End If
Me.LblNode.Caption = Breadcrumbs
Jeg kan sagtens remme funktionaliteten ud, det eneste den udfører ved aktivering er, at vise det aktuelle valg i klart tekst øverst i hovedformularen ( Q -> Queen -> A Night At The Opera ) ...
Dette kan jeg godt undvære, men hvorfor stopper den ikke under Index A ( er nu nået så langt i mine data, at jeg kan konstatere, at det kun er A som fungerer, de øvrige fejler ... ( pyha ... så var det ikke Queen som var problemet )