Foxtable(狐表)用户栏目专家坐堂 → 目录树不能及时更新


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

主题:目录树不能及时更新

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/20 9:44:00 [显示全部帖子]

1、目录树都不会自动刷新的。在保存按钮里最后重新调用生成目录树的代码

Dim cd As WinForm.TreeView = e.Form.Controls("TreeView1")
cd.BuildTree("物品类别","物品名称")

2、到物品类别表格ChangeEdit事件重新调用上面的代码,如

If e.Col.name = "物品名称" AndAlso Forms("物品信息维护").opened Then
    If e.Text  > "" Then
        Dim cd As WinForm.TreeView = Forms("物品信息维护").Controls("TreeView1")
        cd.BuildTree("物品类别","物品名称","物品名称 like '%" & e.Text & "%'")
    End If
End If

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/20 12:16:00 [显示全部帖子]

同样的道理,不管是哪里,目录树都不会自动刷新。可以考虑使用动态目录树:http://www.foxtable.com/webhelp/topics/2127.htm

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/29 17:32:00 [显示全部帖子]

……
tr.BuildTree(dt,"是否已完工|是否要审计|年|月")
tr.Nodes.Insert("全部",0)
For Each n As WinForm.TreeNode In tr.AllNodes
    If n.Level = 0 Then
        If n.Text = "False" Then
            n.text = "未完工"
        Else
            n.Text = "已完工"
        End If
    End If
Next

 回到顶部