TV1.Nodes.Clear() Dim mNode As New Microsoft.Web.UI.WebControls.TreeNode() mNode.Text = Session("CustName") mNode.ID = "Root" mNode.Expanded = True mNode.ImageUrl = "../images/img01/plus.gif" mNode.ExpandedImageUrl = "../images/img01/minus.gif" TV1.Nodes.Add(mNode)
Private Sub CreateDataSet()’建立数据集 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 建树的基本思路是:从根节点开始递归调用显示子树 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
Dim mNode As New Microsoft.Web.UI.WebControls.TreeNode()
mNode.Text = Session("CustName")
mNode.ID = "Root"
mNode.Expanded = True
mNode.ImageUrl = "../images/img01/plus.gif"
mNode.ExpandedImageUrl = "../images/img01/minus.gif"
TV1.Nodes.Add(mNode)
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
建树的基本思路是:从根节点开始递归调用显示子树
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
<tvns:treeview id="TreeView1" selectedNodeIndex="0" HelperID="__TreeView1_State__" systemImagesPath="/webctrl_client/1_0/treeimages/" onexpand="javascript: if (this.clickedNodeIndex != null) this.queueEvent('onexpand', this.clickedNodeIndex)" oncollapse="javascript: if (this.clickedNodeIndex != null) this.queueEvent('oncollapse', this.clickedNodeIndex)" oncheck="javascript: if (this.clickedNodeIndex != null) this.queueEvent('oncheck', this.clickedNodeIndex)" onselectedindexchange="javascript: if (event.oldTreeNodeIndex != event.newTreeNodeIndex) this.queueEvent('onselectedindexchange', event.oldTreeNodeIndex + ',' + event.newTreeNodeIndex)" style="background-color:#C0FFFF;height:342px;width:146px;Z-INDEX: 102; LEFT: 24px; POSITION: absolute; TOP: 31px">
<tvns:treenode Selected="true">
Node0
</tvns:treenode><tvns:treenode Expanded="True">
ShenYang
</tvns:treenode><tvns:treenode Expanded="True">
AnShan
</tvns:treenode><tvns:treenode Expanded="True">
FuShun
</tvns:treenode><tvns:treenode Expanded="True">
DaLian
</tvns:treenode><tvns:treenode Expanded="True">
ZhuZhou
</tvns:treenode><tvns:treenode Expanded="True">
GuangZhou
</tvns:treenode>
</tvns:treeview>
为什么不显示?哪有毛病啊