62,041
社区成员
发帖
与我相关
我的任务
分享
Protected Sub RadMenu1_ItemClick(ByVal sender As Object, ByVal e As Telerik.WebControls.RadMenuEventArgs) Handles RadMenu10.ItemClick
Dim tmpNd As TreeNode, tmpTreeNode As TreeNode, tmpParentNade As TreeNode = Nothing
Dim tempNode As TreeNode
tmpNd = TreeView1.FindNode(TxtSelectNode.Text)
If tmpNd Is Nothing Then
Exit Sub
End If
Dim htBase As New Hashtable
Dim htMaterialList As New Hashtable
Dim strValue() As String, strtmp As String = ""
Dim tmpid As Long
If e.Item.Text = "添加" Then
tmpTreeNode = New TreeNode("新节点")
strValue = tmpNd.Value.Split("|")
With New CatalogTask
tmpid = .AddChild("新节点" & (tmpNd.ChildNodes.Count + 1).ToString(), strValue(1), 1)
End With
tmpTreeNode.Value = "000|" & tmpid.ToString
tmpTreeNode.NavigateUrl = "#&menuNodeID=" & tmpid.ToString
tmpTreeNode.ImageUrl = ""
tmpTreeNode.Expanded = True
tmpNd.ChildNodes.Add(tmpTreeNode)
tmpTreeNode.Text = "新节点" + tmpNd.ChildNodes.Count.ToString()
SetNodeText(tmpNd.ChildNodes(tmpNd.ChildNodes.IndexOf(tmpTreeNode)))
tmpNd.Selected = True
ElseIf e.Item.Text = "删除" Then
tmpParentNade = TreeView1.FindNode(tmpNd.Parent.ValuePath)
tmpParentNade.ChildNodes.RemoveAt(tmpParentNade.ChildNodes.IndexOf(tmpNd))
strValue = tmpNd.Value.Split("|")
With New CatalogTask
tmpid = .DeleteByLayerID(strValue(1))
End With
End If
End Sub