- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教一个目录树问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16983)
-- 发布时间：2012/2/29 12:01:00
-- 请教一个目录树问题
如何能 当点击目录树第一层节点的“收”或“支”时，Combobox1中显示的是 “ ID ”;
点击目录树第二层节点中的任一标题时，Combobox1中显示的是 “归类” ;
点击目录树第三层节点中的任一标题时，Combobox1中显示的是 “ 名称” ;
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树1.table |
[此贴子已经被作者于2012-2-29 15:00:55编辑过]
-- 发布时间：2012/2/29 13:49:00
--
Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Forms("窗口1").Controls("ComboBox1").value =nd.name
-- 发布时间：2012/2/29 14:41:00
--
谢谢mr725老师！这个是显示节点名。
我的显示目录树代码是这样的：
Dim tv As WinForm.TreeView=e.Form.Controls("TreeView1")
tv.BuildTree("产品", "id|归类|名称")
我不是要在ComboBox1显示节点名，而是要在ComboBox1显示所点击节点显示tv.BuildTree("产品", "id|分类|名称") 里面的 “ID ”“归类”和“名称”
[此贴子已经被作者于2012-2-29 15:01:28编辑过]
-- 发布时间：2012/2/29 15:49:00
--
‘用这个办法可以，不知还有更科学的简洁的的代码没有
Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If e.Node.Level = 0 Then
Forms("窗口1").Controls("ComboBox1").value = "Id"
Else If e.Node.Level = 1 Then
Forms("窗口1").Controls("ComboBox1").value ="归类"
Else If e.Node.Level = 2 Then
Forms("窗口1").Controls("ComboBox1").value ="名称"
End If
-- 发布时间：2012/2/29 16:03:00
--
Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim nms() As String = {"Id","归类","名称"}
Forms("窗口1").Controls("ComboBox1").value = nms(e.Node.Level)
-- 发布时间：2012/2/29 16:35:00
--
贺老师，要的就是这个，谢谢！