已经用treeview读出了几个Access表，如何实现TreeView1_NodeClick？？

Question

Access表的结构是两个字段name和web,已经用treeview读出了name字段，现在
想在单击treeview时，打开web字段（web字段存放的是网站的网址）
问题是：如何实现TreeView1_NodeClick事件?
(Access数据库有两个表：“网站集合”和“网站集合2”)读出name字段是这样的
Set mydb = OpenDatabase(App.Path & "\abc.mdb", False, False, ";pwd=123")
    Dim node001 As Node
    Set my001 = mydb.OpenRecordset("网站集合")
    Set node001 = TreeView1.Nodes.Add(, , "netall", "网站集合", 1)
    For i = 1 To my001.RecordCount
    Set node001 = TreeView1.Nodes.Add("netall", tvwChild, my001.Fields("name"), my001.Fields("name"))
    my001.MoveNext
    Next i
    
    Set my001 = mydb.OpenRecordset("网站集合2")
    Set node001 = TreeView1.Nodes.Add(, , "netall2", "网站集合2", 1)
    For i = 1 To my001.RecordCount
    Set node001 = TreeView1.Nodes.Add("netall2", tvwChild, my001.Fields("qqname"), my001.Fields("qqname"))
    my001.MoveNext
    Next i

Answer 1

在读出name字段的同时，读出web字段的内容，保存在node的tag中，然后处理TreeView1_NodeClick事件Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  WebBrowser1.Navigate2 Node.Tag
End Sub另一种办法是在TreeView1_NodeClick事件中，根据name进行查询数据库，获得相应的url
不过效率要低一些。