treeview问题

来源：百度知道 编辑：UC知道 时间：2024/09/28 12:40:09
我有几个库:Books,Major,Class
我的目录是:
类型
--Major
----Class
------Books
请教我怎么写代码呢?
我只知道直接在节点输入文本,谢谢了
谢谢,我用的是VB呢 treeview控件哈
Dim nodX As Node
Dim rsType As New ADODB.Recordset
Set rsType = DataEnv.rsType
Dim rsMajor As New ADODB.Recordset
Set rsMajor = DataEnv.rsMajor
If rsMajor.State = adStateOpen Then rsMajor.Close
rsMajor.Open
rsType.Open
Do While Not rsType.EOF
Set nodX = tvTreeView.Nodes.add(, , , rsType.Fields("T_Name_S").Value)
rsType.MoveNext
Loop
我只能做这一步,望高手指教了^-^

Imports System.Data.SqlClient
Public Class Class1
Public Function DBConnectionSelect(ByVal strSql As String) As DataSet
Dim myDs As New DataSet
myDs.ReadXml(AppDomain.CurrentDomain.SetupInformation.ConfigurationFile)
Dim connection As SqlConnection = New SqlConnection(myDs.Tables(1).Rows(0)(1))
Dim adapter As SqlDataAdapter = New SqlDataAdapter(strSql, connection)
Dim ds As DataSet = New DataSet
adapter.Fill(ds, "Company")
Return ds
End Function
End Class
dim i as integer
dim Major as string ="select Major名称 from Major "
dim Majords as dataset
Majords =aa .DBConnectionSelect(Major )
dim Class as string ="select Class 名称 from Class "
dim Classds as dataset
Class ds =aa .DBConnectionSelect(Class )

dim Books as string ="select Books名称 from Books"
dim Booksds as dataset<