以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  父表列与子表列同步子移动  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=41168)
--  作者：tj-pacer
--  发布时间：2013/10/12 22:14:00
--  父表列与子表列同步子移动
父表有几十列，子表也有几十个相同的列，希望将光标放在父表的某列时，子表的列与父表列处在相同列位，光标在父表各列移动时，子表同步移动？
--  作者：有点甜
--  发布时间：2013/10/12 22:29:00
--  
 参考，先自己写写代码。
--  作者：有点甜
--  发布时间：2013/10/12 22:34:00
--  
 参考下面的代码，写到父表选择单元格事件里去。

Dim pt As Table = Tables("表A")
Dim ct As Table = Tables("表A.表B")

If ct.Rows.count > 0 Then
    For Each c As Col In ct.cols
        If c.Name = pt.Cols(pt.ColSel).Name Then
            ct.Select(0, c.Index)
            Exit For
        End If
    Next
End If