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

[tianya51]

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

[flc]

关注

[rainstormmaster]

在读出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
不过效率要低一些。

[19830711]

up