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


  共有2720人关注过本帖平板打印复制链接

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

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106680 积分:542589 威望: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

 回到顶部