主题：代码如何控制关联表的菜单项-停靠设置

参考代码

Dim o = Tables("表a.表B").grid.parent.parent
'o.AutoHiding = True
o.CanAutoHide = False
o.CanCloseTabs = False
'For Each c As object In o.Gettype.getproperties
    'output.show(c.name)
'Next

Dim c = Tables("表a.表B").grid.parent.parent.parent
c.dock = 4
c.width = 500