以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于关联表窗口固定列位置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148698)
--  作者：爱相随
--  发布时间：2020/4/13 17:07:00
--  关于关联表窗口固定列位置
老师，我用代码固定关联表窗口列位置后，一些关联表就会自动隐藏一些固定的列，无论怎么弄，切换表后那些被取消隐藏的列就又被隐藏了，代码如下，
Dim cvs As String = Tables("zwhzb").GetColVisibleWidth()
Tables("zwhzb.xzxymxb").SetColVisibleWidth(cvs)
Tables("zwhzb.xzfkmxb").SetColVisibleWidth(cvs)
Tables("zwhzb.hbmxb").SetColVisibleWidth(cvs)
Tables("zwhzb.lxmxb").SetColVisibleWidth(cvs)
Tables("zwhzb.hbfxjhb").SetColVisibleWidth(cvs)

Dim cvc As String = Tables("xzxymxb").GetColVisibleWidth()
Tables("xzxymxb.zwhzb.xzfkmxb").SetColVisibleWidth(cvc)
Tables("xzxymxb.zwhzb.hbmxb").SetColVisibleWidth(cvc)
Tables("xzxymxb.zwhzb.lxmxb").SetColVisibleWidth(cvc)
Tables("xzxymxb.zwhzb.ndhbfxjhb.hbfxjhb").SetColVisibleWidth(cvc)

没搞清楚怎么回事
--  作者：有点蓝
--  发布时间：2020/4/13 17:30:00
--  
有其它代码影响、或者是窗口表引用了这些关联表，窗口也设置了：http://www.foxtable.com/webhelp/topics/1921.htm