以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论] 如何目录树获取一级节点(已解决)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21095)

--  作者:qq121454970
--  发布时间:2012/7/1 9:16:00
--  [讨论] 如何目录树获取一级节点(已解决)
请问下,如何做到,当我点击目录树中的“店铺信息”中的任意子节点时,声明一个字符变量,变量的值等于一级节点的名称。然后根据变量值的不同,执行不同的代码?
如果点击的子节点的一级节点标题是“店铺信息”
则执行代码一
如果点击的子节点的一级节点标题是“处理方式”
则执行代码二

这段代码该怎么写呀,各位大哥,解救下呀图片点击可在新窗口打开查看
[此贴子已经被作者于2012-7-1 16:10:30编辑过]

--  作者:sunbrain
--  发布时间:2012/7/1 11:12:00
--  
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd11 As winform.treenode
Dim nd12 As winform.treenode
tv.BuildTree("表a", "第一列")
nd11 = tv.Nodes.Insert("店铺信息","店铺信息",100)
nd12 = tv.Nodes.Insert("处理方式"," 处理方式 ",101)


If e.Node.text = "店铺信息"
  \'你的代码
End If
If e.Node.text = "处理方式"
  \'你的代码
End If

--  作者:qq121454970
--  发布时间:2012/7/1 15:48:00
--  
谢了
--  作者:qq121454970
--  发布时间:2012/7/1 16:12:00
--  
我用的是
Dim tr As WinForm.TreeView
Dim pd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
pd = tr.SelectedNode.ParentNode
Dim s As String = pd.text
If s = "xx"
\'执行代码
else
 s = "xx"
\'执行代码
end if