要下载 iewebcontrols,那里面有web用的treeview
解决方案 »
- asp.net连接mysql问题
- 急求:win2003ser下,asp.net无法连接sql2005
- IIS打开.aspx文件不能打开。
- 安装vs2005 sp1补丁问题
- 求一个不是试用版的vs2005,我的装的vs2005现在提示让我购买正式版的,
- 好郁闷,请教大侠们怎么取出DataGrid中HyperLinkColumn的DataNavigateUrlField属性?
- 关于htmlinputfile的问题?
- 如何实现分段向数据库写入
- asp.net中DataGrid数据就地编辑时,如何增加数据有效性检验?
- =在datalist里取不到值?
- 国庆之前,请大家先帮我这个忙,谢谢!
- N久没发贴子了,祝大家十一快乐,玩的开心,顺便问一下大家十一怎么过呀?:)
http://msdn.microsoft.com/downloads/samples/internet/ASP_DOT_NET_ServerControls/WebControls/default.asp安装方法:(也可参照Readme.txt)
1.bulid.将bulid.bat的路径指向csc.exe所在路径,生成Microsoft.Web.UI.WebControls.dll。
2.在wwwroot下创建空目录webctrl_client\1_0。
3.将build\Runtime下的文件拷至webctrl_client\1_0下。
4.选择工具箱的自定义工具箱,添加Microsoft.Web.UI.WebControls.dll
使用方法:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码 Call intiTree(TreeView1.Nodes, 0)
End Sub
Private Sub intiTree(ByRef Nds As Microsoft.Web.UI.WebControls.TreeNodeCollection, ByVal parentId As Integer)
Dim connectstring As String
connectstring = "data source=.;initial catalog=telrc;uid=sa;pwd=67890;"
Dim myConn As New SqlConnection(connectstring)
Dim myDataAdapter As New SqlDataAdapter("select * from treetable", myConn)
Dim ds As New DataSet()
myDataAdapter.Fill(ds, "tree")
Dim drv As DataRowView
Dim tmpNd As Microsoft.Web.UI.WebControls.TreeNode
Dim intId As Integer
Dim dv As New DataView()
dv.Table = ds.Tables("tree")
dv.RowFilter = "PARENTID='" & parentId & "'"
For Each drv In dv
tmpNd = New Microsoft.Web.UI.WebControls.TreeNode()
intId = drv("NODEID")
tmpNd.ID = intId
tmpNd.Text = drv("NODENAME")
tmpNd.ImageUrl = drv("ICON").ToString
Nds.Add(tmpNd)
intiTree(Nds(Nds.Count - 1).Nodes, intId)
Next
End Sub