- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 筛选树刷新按键 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131358)
-- 发布时间：2019/2/24 11:30:00
-- 筛选树刷新按键
筛选树下有个刷新按键, 因为单独放在右下角, 看起来有点不协调, 请问能否把它删除, 提个建议, 最好能将它移至标题栏上.
此主题相关图片如下：刷新.png
-- 发布时间：2019/2/24 13:07:00
--
打开筛选树以后，执行下面代码隐藏按钮
For Each a As OBJECT In Tables("表A").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
-- 发布时间：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
-- 发布时间：2019/2/27 12:09:00
--
我测试没问题，具体实例发上来测试。