Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选树刷新按键


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

主题：筛选树刷新按键
帅哥哟，离线，有人找我吗？
lxmoffice
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：125 积分：1542 威望：0 精华：0 注册：2017/2/1 10:03:00 		筛选树刷新按键  发帖心情 Post By：2019/2/24 11:30:00 [显示全部帖子]

筛选树下有个刷新按键, 因为单独放在右下角, 看起来有点不协调, 请问能否把它删除, 提个建议, 最好能将它移至标题栏上. 


图片点击可在新窗口打开查看此主题相关图片如下：刷新.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lxmoffice
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：125 积分：1542 威望：0 精华：0 注册：2017/2/1 10:03:00 		  发帖心情 Post By：2019/2/27 12:06:00 [显示全部帖子]

版主,

您好! 

尝试加入你写的代码, 好像不起作用, 那个刷新按钮没有被隐藏, 不知哪里不对, 请帮忙看下


For Each frm As WinForm.Form In Forms
    frm.Close
Next

Forms("零件工序").Open()
Forms("工序编写").Open()
MainTable=Tables("零件工序")

Tables("零件工序").Sort = "图纸编号,序号"

CurrentTable.CloseloadTree
Tables("零件工序").OpenfilterTree("图纸编号|零件名称",150)

'打开筛选树以后,执行下面代码隐藏按钮

For Each a As OBJECT In Tables("零件工序").grid.Parent.controls
    For Each b As OBJECT In a.controls
         If B.text = "筛选树" Then
            For Each c As object In b.controls(0).controls(0).controls
                c.visible = False
            Next
        End If
    Next
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 5 次数据查询