大神,我的权限表是这样的。
然后添加了根节点:
Dim nodX As node
sql = "select Menu_Title from menu where ParentID IS NULL"
Rs.Open sql, conn, adOpenKeyset
If Rs.RecordCount <> 0 Then
Do While Rs.EOF = False
Set nodX = Trv.Nodes.Add(, , Rs.Fields("Menu_Title").Value, Rs.Fields("Menu_Title").Value, 1)
Rs.MoveNext
Loop
End If
子节点的relative和key、text不太好写了。该怎么办?这个Add怎么设计好。。。求指点。