版主,
您好!
尝试加入你写的代码, 好像不起作用, 那个刷新按钮没有被隐藏, 不知哪里不对, 请帮忙看下
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
加好友 
发短信
Post By：2019/2/24 11:30:00 [只看该作者]
此主题相关图片如下：刷新.png