关于目录树更新条目的凸显 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于目录树更新条目的凸显

共有3877人关注过本帖树形打印复制链接主题：关于目录树更新条目的凸显

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/27 10:01:00 [显示全部帖子]

首先，可以在你的表里体现出这一文件是新的；

然后，你需要编写代码。在目录树生成以后，循环所有的节点，用 e.Datarow属性，检测表里的内容，如果是新的，就改变节点的名称，加入new

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/27 14:12:00 [显示全部帖子]

如何区分新旧？

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/27 14:49:00 [显示全部帖子]

如下？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/27 15:51:00 [显示全部帖子]

以下是引用wealthwind在2014-4-27 15:45:00的发言：
老师，这样需要手工添加额，我的意思是，通过日期显示，比如，今天添加了文件，他就显示是新，到了明天自动就不显示了，而且“新字”能否用会动的图片，什么的，明显一点？？

你可以设置节点的图标和字体颜色。

参考 http://www.foxtable.com/help/topics/0901.htm

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/27 15:56:00 [显示全部帖子]

代码是这一段，自己改一下

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("文件管理","文件类型|文件名称")
For Each n As WinForm.TreeNode In trv.Nodes
    If DataTables("文件管理").Find("日期 = '#" & Date.Today & "#' and 文件类型 = '" & n.Name & "'") IsNot Nothing Then
        n.Text = n.Text & "(新)"
        For Each cn As WinForm.TreeNode In n.Nodes
            If cn.DataRow("日期") = Date.Today Then
                cn.Text = cn.Text & "(新)"
            End If
        Next
    End If
Next

下一主题 >> << 上一主题

主题：关于目录树更新条目的凸显