Hej har lite problem med treeview...

Jag vill tillägga att jag kolla på i tips och tricks och filearea... men har lite svårt att se lösningen§

jo....


jag börjar med följande
<code>
' Sätter Produktgrupper
Set hNode1 = TreeView1.Nodes.Add
TreeView1.Nodes(1).Text = "Produktgrupper"
TreeView1.Nodes(1).Key = "hNode 1"
TreeView1.Nodes(1).Image = "close"

'Sätter leverantörer
Set hNode2 = TreeView1.Nodes.Add
TreeView1.Nodes(2).Text = "Leverantörer"
'TreeView1.Nodes(2).Key = hNode2
TreeView1.Nodes(2).Image = "close"
</code>

och sedan vill jag skapa undernodar till dessa

<code>

SQL = "SELECT * FROM KODDEF WHERE grupp ='PRG'"
Set rst = con.Execute(SQL)


Do Until rst.EOF

Count = rst("kodtyp")' är unikt

Set Node(rst("kodeID")) = TreeView1.Nodes.Add("hNode 1", tvwChild, "node 2")
TreeView1.Nodes(Count).Text = Count
TreeView1.Nodes(rst("kodeID")).Key = "node 2"
TreeView1.Nodes(rst("kodeID")).Image = "doc"

rst.MoveNext
Loop
</code>

Jag vill alltså i gruppen produktgrupper hämta de produker som ligger i databasen med SQl-satsen. Det problemet jag har är att få detta att fungera... Den klagar på

<code>Set Node(rst("kodeID")) = TreeView1.Nodes.Add("hNode 1", tvwChild, "node 2")</code> "Script out of range" ....eller "Key is nott unique in collection".

Jag har stirrat mig blind på detta och behöve lite rätsida...


Min tanke är att hämta all leverantörer och lägga dem i nästa node


/phinala