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


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

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

帅哥哟,离线,有人找我吗?
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



 回到顶部