跪求~~~~~我今天在CSDN问了一天,帮我看看吧,我实在没有办法了
为什么没有效果,连错误提示都没有,今天在问不出来,我是不睡觉了
数据库设计father_id,child_id,name,count,url
Public ds As New DataSet()
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not IsPostBack Then
CreateDataSet()
InitTree(TreeView1.Nodes, 999)
End If
End Sub
Private Sub CreateDataSet()
Dim str As String = ConfigurationSettings.AppSettings("tree")
Dim myconn As New SqlConnection(str)
Dim myDataAdapter As New SqlDataAdapter("SELECT * FROM TREE", myConn)
myDataAdapter.Fill(ds)
End Sub
Private Sub InitTree(ByRef Nds As TreeNodeCollection, ByVal parentId As Integer)
Dim dv As New DataView()
Dim drv As DataRowView
Dim tmpNd As TreeNode
Dim i As Integer
dv.Table = ds.Tables("tree")
dv.RowFilter = "Father_Id='" & parentId & "'"
For Each drv In dv
tmpNd = New TreeNode()
tmpNd.ID = drv("child_id")
tmpNd.Text = drv("name")
i = drv("father_id")
Nds.Add(tmpNd)
InitTree(Nds(Nds.Count - 1).Nodes, tmpNd.ID)
Next
End Sub