使用ASTreeView1.5.8读取数据库并产生树状超链接的方法

 1  Dim dr As OracleDataReader = ExecuteReader("select k_id,k_name from tb_kemu")
 2 
 3             If dr.Read Then
 4                 ASTreeView1.RootNode.AppendChild(New ASTreeViewLinkNode(dr("k_name"), dr("k_name"), "http://www.www.com/aa.aspx?id=" + CStr(dr("k_id")), "frm", "goto", "~/images/picasa.gif"))
 5                 Dim dr3 As OracleDataReader = ExecuteReader("select q_id,q_kemu,q_zhuti from tb_tiku where q_kemu='" + dr("k_name") + "'")
 6                 If dr3.Read Then
 7                     While dr3.Read
 8                         ASTreeView1.FindByText(dr("k_name")).AppendChild(New ASTreeViewLinkNode(dr3("q_zhuti"), dr3("q_zhuti"), "#", "frm", "goto", "/images/application_edit.png"))
 9                     End While
10                 End If
11 
12                 While dr.Read()
13                     Dim dr2 As OracleDataReader = ExecuteReader("select q_id,q_kemu,q_zhuti from tb_tiku where q_kemu='" + dr("k_name") + "'")
14                     ASTreeView1.RootNode.AppendChild(New ASTreeViewLinkNode(dr("k_name"), dr("k_name"), "http://www.www.com/aa.aspx?id=" + CStr(dr("k_id")), "frm", "goto", "~/images/picasa.gif"))
15                     If dr2.Read() Then
16                         While dr2.Read()
17                             ASTreeView1.FindByText(dr("k_name")).AppendChild(New ASTreeViewLinkNode(dr2("q_zhuti"), dr2("q_zhuti"), "#", "frm", "goto", "/images/application_edit.png"))
18                         End While
19                     End If
20                 End While
21             End If