Also...ich arbeite immernoch mit den Steuerelementen ImageList und TreeView. Bei dem Treeview drei Ebenen festzulegen, geht ja ganz gut:
For i = 1 To anz
With Me.tvwtest.Nodes
If strLand <> rs("Land") Then
Set tvwLand = .Add(, tvwLast, , rs("Land"))
tvwLand.Image = 1
strLand = rs("Land")
End If
If strOrt <> rs("Ort") Then
Set tvwOrt = .Add(tvwLand, tvwChild, , rs("Ort"))
tvwOrt.Image = 2
strOrt = rs("Ort")
End If
Set tvwKunde = .Add(tvwOrt, tvwChild, rs("Kunden-Code"), rs("Firma"))
tvwKunde.Image = 3
End With
rs.MoveNext
Next i
Aber sobald ich nur zwei Ebenen haben will, pack ichs irgendwie nich mehr! Da kommt immer die Fehlermeldung: Ungültiger Schlüssel
Aber das kann nich sein, denn mein Schlüssel ist ID und den hab ich auch so angegeben:
For i = 1 To anz
With Me.tvwpersonen.Nodes
If strLand <> rs("Land") Then
Set tvwLand = .Add(, tvwLast, , rs("Land"))
tvwLand.Image = 1
strLand = rs("Land")
End If
Set tvwOrt = .Add(tvwLand, tvwChild, rs("ID"), rs("Ort"))
tvwOrt.Image = 2
End With
rs.MoveNext
Next i
Ich weiß auch net...hab schon alle Varianten ausprobiert...vielleicht blickt da jemand von euch durch?
Wär ganz lieb...
Gruß kamikala