---
title: "TreeView"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/41042-treeview"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "saw"
published: "2002-04-07T15:09:58.000Z"
updated: "2002-04-07T21:41:39.000Z"
replies: 1
views: 197
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/41042-treeview"
---

# TreeView

## #1 — saw, 2002-04-07T15:09Z

Jag försöker att visa dom titlar som finns i ett visst album.
Genom att klicka i en lista(list1) så vill jag ha fram alla låtar som finns i samma album som den jag har klickat på.
Jag kommer nästan fram, men den tar bara fram en titel, den som jag har klickat på. Så här ser koden ut:

```
 

   Dim BitmapPath As String
   BitmapPath = "C:\Inetpub\wwwroot\Hemsidor\saw\Bild\arrow.gif" 
Set imgX = ImageList1.ListImages.Add(, , LoadPicture(BitmapPath))
   TreeView1.ImageList = ImageList1
      
   Set mittRS1 = minDB.OpenRecordset("SELECT t_Album.Album, t_SongTitlar.songtitel, 
t_Kategori.Kategori "
 & _   " FROM t_Kategori INNER JOIN (t_Album 
INNER JOIN t_SongTitlar ON t_Album.CD_ID = 
t_SongTitlar.Album) ON t_Kategori.Kat_ID = t_SongTitlar.Kategori " & _
   " Where t_SongTitlar.songtitel 
= '" & List1.Text & "'  
ORDER BY t_Album.Album", dbOpenDynaset)
   
  
   Set mittRS2 = minDB.OpenRecordset("SELECT 
t_Album.Album, 
t_SongTitlar.songtitel, t_Kategori.Kategori " & _
   " FROM t_Kategori INNER JOIN (t_Album INNER JOIN t_SongTitlar ON t_Album.CD_ID = 
t_SongTitlar.Album) 
ON  t_Kategori.Kat_ID = t_SongTitlar.Kategori " & _
   " Where t_SongTitlar.songtitel = '" & mittRS1!songtitel 
& "'  ORDER BY t_Album.Album", dbOpenDynaset)

  Set nodX = TreeView1.Nodes.Add(, , , " CD-Album: "
 & mittRS1!Album, 1)
     
     Do While Not mittRS2.EOF
        
            Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Track: " 
& mittRS1!songtitel & " - " & mittRS1!kategori, 1)
       
  nodX.EnsureVisible
  mittRS2.MoveNext
Loop
```

Några förslag??   :i

Permalänk: https://www.webforum.nu/p/41042

## #2 — saw, 2002-04-07T21:41Z

Löst!!

Permalänk: https://www.webforum.nu/p/639422

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/41042-treeview