以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树取值,如何实现?谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15516)

--  作者:雨中的泪
--  发布时间:2011/12/29 9:30:00
--  目录树取值,如何实现?谢谢

双击目录树末节点,不管它是几级只要是末级,取该未级的科目代码和科目名称到文本控件TextBox1,同时只取科目代码到文本控件TextBox2 

 

 

谢谢


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树及取值.table


--  作者:狐狸爸爸
--  发布时间:2011/12/29 9:33:00
--  
你是无法判断是否是末级,还是不会取节点的名称和标题?
[此贴子已经被作者于2011-12-29 9:33:08编辑过]

--  作者:雨中的泪
--  发布时间:2011/12/29 9:37:00
--  

老大帮帮忙,谢谢


--  作者:狐狸爸爸
--  发布时间:2011/12/29 9:43:00
--  
你是无法判断是否是末级,还是不会取节点的名称和标题?
--  作者:雨中的泪
--  发布时间:2011/12/29 9:47:00
--  

老大帮帮忙,谢谢


--  作者:狐狸爸爸
--  发布时间:2011/12/29 10:09:00
--  
我想问一下,你是无法判断是否是末级,还是不会取节点的名称和标题?
--  作者:雨中的泪
--  发布时间:2011/12/29 10:31:00
--  

好久不做,忘记了。老大帮帮忙,谢谢


--  作者:don
--  发布时间:2011/12/29 10:47:00
--  
路过图片点击可在新窗口打开查看
--  作者:狐狸爸爸
--  发布时间:2011/12/29 10:48:00
--  
If Forms("筛选窗口").Opened
    If e.Node.Nodes.Count =0 Then
        Forms("筛选窗口").Controls("TextBox1").Value = e.node.name
        Forms("筛选窗口").Controls("TextBox2").Value = e.node.text
        e.Form.Close()
    End If
End If

--  作者:雨中的泪
--  发布时间:2011/12/29 13:47:00
--  
谢谢