以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何实现自动选定备注窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129091)

--  作者:hbhb
--  发布时间:2018/12/21 11:43:00
--  如何实现自动选定备注窗口
大师:见实例
请问如何实现鼠标进入某一单元格后,自动显示备注工作窗口?尤其有关联表时,有同名列。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目11.rar



--  作者:有点甜
--  发布时间:2018/12/21 11:52:00
--  

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=128668&skin=0

 


--  作者:hbhb
--  发布时间:2018/12/21 12:13:00
--  
看过了,没有关联表是可以,有了关联表,在关联表中选取的单元格时,如果关联表的备注列的标题或名称相同,就不能自动跳转到备注列窗口了。
--  作者:有点甜
--  发布时间:2018/12/21 14:55:00
--  

请说明,你给的例子,如何加上代码、如何测试?


--  作者:hbhb
--  发布时间:2018/12/21 16:33:00
--  
鼠标点击表a后,显示两张关联表,点击表a第三列(备注列),鼠标再点击关联表表a_表b的第三列,鼠标再点击关联表表a_表c的第三列

在以上单元格切换,要求列窗口也要同步跳转?
我在表a的单元格事件中的代码为:
Select Case e.Col.Name
    Case “第三列”
        e.Col.OpenWindow
        For Each a As OBJECT In e.Table.grid.Parent.controls
            For Each b As OBJECT In a.controls
                For Each c As OBJECT In b.controls
                    If c.text = e.Col.caption Then
                       
                        c.parent.SelectedTab = c
                        Return
                        
                    End If
                Next
            Next
        Next
    Case Else
        
        For Each cll As Col In e.Table.Cols
            cll.CloseWindow
        Next
End Select


--  作者:有点甜
--  发布时间:2018/12/21 16:36:00
--  

1、列窗口,只能显示【主表】的列;关联表没有列窗口的。

 

2、如果你需要关联表有列窗口,你要单独做一个窗口放入textbox去完成。