以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问:有办法将内置筛选/加载树的位置移到表的右边吗?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150984)

--  作者:y2287958
--  发布时间:2020/6/12 8:20:00
--  请问:有办法将内置筛选/加载树的位置移到表的右边吗?
如题,谢谢!
--  作者:有点蓝
--  发布时间:2020/6/12 8:55:00
--  
Dim tb As Table = Tables("表A")
For Each a As OBJECT In tb.Grid.Parent.controls
    For Each a1 As OBJECT In a.controls
        If a1.text = "加载树"
            \'a1.CanCloseTabs = False \'取消关闭按钮
            \'a1.CanAutoHide = False  \'是否自动隐藏
            \'a1.ShowCaption = True  \'是否显示标题
            a1.parent.Dock = 4
            Return
        End If
    Next
Next

--  作者:y2287958
--  发布时间:2020/6/12 10:36:00
--  
果然可以,如获至宝,蓝版威武!