从XML文件读取数据动态设置Tree控件使用
2007-03-29 09:19 ruinet 阅读(639) 评论(0) 编辑 收藏 举报效果如图:
Xml文档如下:
![](https://www.cnblogs.com/Images/OutliningIndicators/ContractedBlock.gif)
1
Private Sub BindTree()
2![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
3
Dim strJD As String
4
Dim DBRoleObj As New DBRole
5
Dim TypeValue As String
6
Dim JdtName As String = Nothing
7
Dim XDoc As New XmlDocument
8
Dim AppTionPath As String = HttpContext.Current.Server.MapPath(HttpContext.Current.Request.ApplicationPath)
9
Dim Path As String = AppTionPath & "\App_Data\tree.xml"
10
Try
11![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
12
13
XDoc.Load(Path)
14![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
15
tree.Nodes.Clear()
16
If Role <> "Administrator" Then
17
strJD = DBRoleObj.GetJd(Role)
18![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
19
For Each node As XmlNode In XDoc.GetElementsByTagName("Type")
20
TypeValue = node.Attributes("name").Value
21
Dim tNode As TreeNode = New TreeNode(TypeValue)
22
tNode.NavigateUrl = "~/index.aspx"
23
tree.Nodes.Add(tNode)
24![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
25
For Each nodex As XmlNode In node.ChildNodes
26
JdtName = nodex.ChildNodes(1).InnerText
27
If strJD.Contains(JdtName) Then
28
Dim sNode As TreeNode = New TreeNode()
29
sNode.Text = nodex.ChildNodes(0).InnerText
30
sNode.NavigateUrl = nodex.ChildNodes(2).InnerText
31
tNode.ChildNodes.Add(sNode)
32
End If
33![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
34
Next
35
If tNode.ChildNodes.Count = 0 Then
36
tree.Nodes.Remove(tNode)
37
End If
38
Next
39![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
40
Else
41![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
42
For Each node As XmlNode In XDoc.GetElementsByTagName("Type")
43
TypeValue = node.Attributes("name").Value
44
Dim tNode As TreeNode = New TreeNode(TypeValue)
45
tNode.NavigateUrl = "~/index.aspx"
46
tree.Nodes.Add(tNode)
47![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
48
For Each nodex As XmlNode In node.ChildNodes
49
Dim sNode As TreeNode = New TreeNode()
50
sNode.Text = nodex.ChildNodes(0).InnerText
51
sNode.NavigateUrl = nodex.ChildNodes(2).InnerText
52
tNode.ChildNodes.Add(sNode)
53
Next
54
Next
55
End If
56![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
57
Catch ex As Exception
58![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
59
End Try
60![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
61
End Sub
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockStart.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
3
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
4
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
5
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
6
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
7
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
8
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
9
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
10
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
11
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
12
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
13
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
14
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
15
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
16
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
17
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
18
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
19
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
20
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
21
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
22
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
23
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
24
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
25
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
26
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
27
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
28
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
29
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
30
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
31
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
32
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
33
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
34
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
35
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
36
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
37
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
38
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
39
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
40
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
41
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
42
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
43
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
44
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
45
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
46
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
47
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
48
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
49
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
50
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
51
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
52
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
53
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
54
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
55
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
56
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
57
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
58
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
59
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
60
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
61
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockEnd.gif)