以文本方式查看主题

-  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=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