你少写东西了,看看范例
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CreateDataSet()
intiTree(TreeView1.Nodes, 0)
End Sub
Private Sub intiTree(ByRef Nds As TreeNodeCollection, ByVal parentId As Integer)
Dim dv As New DataView()
Dim drv As DataRowView
Dim tmpNd As TreeNode
Dim intId As Integer
dv.Table = ds.Tables("tree")
dv.RowFilter = "PARENTID=’" & parentId & "’"
For Each drv In dv
tmpNd = New TreeNode()
strId = drv("NODE_ID")
tmpNd.ID = strId
tmpNd.Text = drv("NODE_NAME ")
tmpNd.ImageUrl = drv("ICON").ToString
Nds.Add(tmpNd)
intiTree(Nds(Nds.Count - 1).Nodes, intId)
Next
End Sub
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CreateDataSet()
intiTree(TreeView1.Nodes, 0)
End Sub
Private Sub intiTree(ByRef Nds As TreeNodeCollection, ByVal parentId As Integer)
Dim dv As New DataView()
Dim drv As DataRowView
Dim tmpNd As TreeNode
Dim intId As Integer
dv.Table = ds.Tables("tree")
dv.RowFilter = "PARENTID=’" & parentId & "’"
For Each drv In dv
tmpNd = New TreeNode()
strId = drv("NODE_ID")
tmpNd.ID = strId
tmpNd.Text = drv("NODE_NAME ")
tmpNd.ImageUrl = drv("ICON").ToString
Nds.Add(tmpNd)
intiTree(Nds(Nds.Count - 1).Nodes, intId)
Next
End Sub
解决方案 »
- 请教一个关于.net的疑问
- 算法难题请教:如何计算分布式存贮的Key? 谢谢!!!
- 为什么这里需要两个命名空间
- !!!脚本打开新页面的问题!!!!
- 怎样控制ImageButton的onclick?
- 请教WebForm向javascript传递字符串数组的语法问题
- 做网站设计(后台方面)需要掌握那些重要知识点啊?刚转行,做网站,惶恐中
- 如何让一个实时更新的数据列表实现静态化
- RegisterClientScriptBlock和IsClientScriptBlockRegistered?
- Editor百度编辑器转存不能使用
- 如何通过一个class设定HyperLink的text
- 急!!!!关于aspnetmenu!
Dim myConn As New SqlConnection()
Dim myCmd As New SqlCommand("select NODEID,NODENAME,PARENTID,ADDRESS,ICON from Tree_info", myConn)
Dim myDataAdapter As New SqlDataAdapter()
myConn.ConnectionString = Application("connectstring")
myCmd.CommandText = ""
myCmd.Connection = myConn
myDataAdapter.SelectCommand = myCmd
myDataAdapter.Fill(ds, "tree")
End Sub
这些代码是别人的,我知道里面有毛病啊,我用c#改好了的,他的思路是正确的,错误的地方就是把intiTree(Nds(Nds.Count - 1).Nodes, intId) 换成intiTree(Nds(Nds.Count - 1).Nodes, strId) ,其它语法错误也写错了好几个,你自己看看把,要是需要c#的我倒可以给你帖一下
快帮我啊