Foxtable(狐表)用户栏目专家坐堂 → 目录树重复以及数量问题


  共有3442人关注过本帖树形打印复制链接

主题:目录树重复以及数量问题

帅哥哟,离线,有人找我吗?
everybody
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:307 积分:2252 威望:0 精华:0 注册:2013/2/28 9:05:00
目录树重复以及数量问题  发帖心情 Post By:2013/9/3 15:36:00 [只看该作者]

求助目录树的几个问题,虽然都翻到了坛子里面有类似答疑,但还是不得要领。

一是目录树节点有重复的,如何处理?

我的是标准代码:

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("模板库", "使用对象|模板类别","","使用对象ID")
trv.Nodes.Insert("显示所有行",0)


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看


二是我在窗口Afterload加入节点数量后,就不能单击节点筛选了,按理应是nodename 的语句写法问题,但不太懂,请高手示意!

以下代码是高手出的,来自 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=24359&authorid=0&page=0&star=2

For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Nodes.Count > 0  Then
        If  nd.Nodes.Count = nd.AllNodes.count   Then
            nd.text =  nd.text & "(" & nd.nodes.count &")"
        Else
            Dim Endjd As Integer = 0
            For Each nd1 As winform.treenode In nd.allnodes
                If nd1.nodes.count = 0 Then
                    endjd = endjd +1
                End If
            Next
            nd.text =  nd.text & "(" & nd.nodes.count &"|" & Endjd &")"
        End If
    End If
Next


三是如何自动刷新目录树

需要刷新的情况有
增删改行;或修改“ 使用对象”;或修改“ 模板类别”,都需要刷新的。

是定时刷新好呢,还是手工再写一遍加载目录树公示?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:文件文类管理.foxdb



 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/9/3 16:01:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
逛逛
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:1693 积分:12117 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2013/9/3 17:05:00 [只看该作者]

 节点主要有三个属性,名称,标题,图片,这些在帮助中都有。

一般将后期删选条件放在名称中;将展示字符(包括合成字符)放在标题中,你上面的只要在原有的基础上再增加一个标题就可以了。

 

 传回的文件是其他的一种方法,供参考。

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:文件文类管理.foxdb

[此贴子已经被作者于2013-9-4 7:53:32编辑过]

 回到顶部