以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]treeview问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124128)
--  作者：cqlwsam
--  发布时间：2018/8/31 9:00:00
--  [求助]treeview问题
如图，有几个问题。


图片点击可在新窗口打开查看此主题相关图片如下：360截图17610617306723.png
图片点击可在新窗口打开查看


1. 当所选节点是最后一层时（如何评断是最后一层），向右移动的按钮不能用。
2. 当所选节点是该层最后一个节点时（如何评断是最后一个节点），向下移动的按钮不能用。


谢谢！
--  作者：cqlwsam
--  发布时间：2018/8/31 9:29:00
--  
左移和上移问题，我的代码。

If e.Node.Level=0 Then
    e.form.Controls("Btn_moveleft").Enabled = False
Else
    e.form.Controls("Btn_moveleft").Enabled = True
End If

If e.node.Index=0 Then
    e.form.Controls("Btn_moveup").Enabled = False
Else
    e.form.Controls("Btn_moveup").Enabled = True
    
End If
--  作者：有点甜
--  发布时间：2018/8/31 9:49:00
--  
以下是引用cqlwsam在2018/8/31 9:00:00的发言：
如图，有几个问题。


图片点击可在新窗口打开查看此主题相关图片如下：360截图17610617306723.png



1. 当所选节点是最后一层时（如何评断是最后一层），向右移动的按钮不能用。
2. 当所选节点是该层最后一个节点时（如何评断是最后一个节点），向下移动的按钮不能用。


谢谢！

 

1、

 

If 目录树.selectedNode.nodes.count = 0 Then \'最后一层
 
2、
 
If 目录树.selectedNode.index = 目录树.selectedNode.parentNode.nodes.count-1 Then \'本层最后一个
 
3、看看
 
下载信息  [文件大小：324.0 KB  下载次数：36]
图片点击可在新窗口打开查看点击浏览该文件:编辑目录树例子.table