以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何用代码打开关联窗口  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=161286)

--  作者:zhanglei396728
--  发布时间:2021/3/12 9:29:00
--  如何用代码打开关联窗口
 如何在单击特殊列时,打开对应列的关联窗口
--  作者:有点蓝
--  发布时间:2021/3/12 9:32:00
--  
参考:http://www.foxtable.com/webhelp/topics/1437.htm
--  作者:zhanglei396728
--  发布时间:2021/3/12 10:03:00
--  
首先要先知道我单击的是哪一列,然后才是弹出对应列窗口,您给我的没有识别我单击的是那一列的信息啊
--  作者:有点蓝
--  发布时间:2021/3/12 10:07:00
--  
表格Click事件

If e.Col.Name = "某列名" Then
    
e.Col.OpenWindow()
End
 
If

--  作者:zhanglei396728
--  发布时间:2021/3/12 11:29:00
--  
 显示表,或调整表怎么写啊
--  作者:有点蓝
--  发布时间:2021/3/12 11:38:00
--  
什么显示表,调整表?截图说明一下
--  作者:zhanglei396728
--  发布时间:2021/3/12 11:46:00
--  
 我的意思是当我单击表A的第五列时,关联表   表A_表B应该自动显示出来
               当我单击表A的第六列时,关联表   表A_表C应该自动显示出来

--  作者:有点蓝
--  发布时间:2021/3/12 12:01:00
--  
表格Click事件

If e.Col.Name = "第五列" Then
    tables
("表A.表C").visible =false
    tables("表A.表B").visible =true
elseIf e.Col.Name = "第六列" Then
    tables("表A.表B").visible =false
    tables("表A.表C").visible =true
End If