Treeview, Nodeoppbygging... Access VBA

[nrams]

Hei..

 

Sliter litt med at når brukerene drar en node over en annen så blir teksten på sourcenoden = destnoden. Kan det ha noe med oppbyggingen av nodene?

Har brukt flere recordset og "nøstet" de.

I tabellen har jeg

Parent (varchar)

Item (varchar)

 

Der Parent feltet er ParentItem og Item = current.

 

Har tatt et utdrag av koden og tatt bort litt kode som ikke trengs vises her..

Noen som har forslag til andre måter dette kunne vært gjort?

 

rs.Open "SELECT Item, Name FROM tblFolder WHERE Parent IS NULL AND Jobno = '" & vJobid & "'", CurrentProject.Connection
   

While Not rs.EOF
       itm = rs.Fields("item"): Name = rs.Fields("name")
       Set nNode = cTree.Nodes.Add(, , "KEY" & itm, Name, 1)
       Subsql = "SELECT Item, Name FROM tblFolder WHERE Parent ='" & itm & "' AND JobNo = '" & vJobid & "'"
       ' ======= LEVEL 1 ==========
       r1.Open Subsql, CurrentProject.Connection ' Open subs
        While Not r1.EOF
           	sk1 = r1.Fields("item"): Name = r1.Fields("name"): Set s1 = cTree.Nodes.Add(nNode, tvwChild, "KEY" & sk1, Name, 1)
          
           	' ========= LEVEL 2 ==========
           	Subsql = "SELECT Item, Name FROM tblFolder WHERE Parent ='" & sk1 & "' AND JobNo = '" & vJobid & "'"
           	r2.Open Subsql, CurrentProject.Connection ' Open subs
           	While Not r2.EOF
           	sk2 = r2.Fields("item"): Name = r2.Fields("name"): Set s2 = cTree.Nodes.Add(s1, tvwChild, "KEY" & sk2, Name, 1)
           
                ' ========= LEVEL 3 ==========
                Subsql = "SELECT Item, Name FROM tblFolder WHERE Parent ='" & sk2 & "' AND JobNo = '" & vJobid & "'"
                r3.Open Subsql, CurrentProject.Connection ' Open subs
                   While Not r3.EOF
                   sk3 = r3.Fields("item"): Name = r3.Fields("name"): Set s3 = cTree.Nodes.Add(s2, tvwChild, "KEY" & sk3, Name, 1)
 ' ========= LEVEL 3 ==========
           r2.MoveNext: Wend: r2.Close
           ' ========= LEVEL 2 ==========
       r1.MoveNext: Wend: r1.Close
       ' ======= LEVEL 1 ==========
   rs.MoveNext
  itm = "": Wend
rs.Close