专家坐堂-关联子表列定位Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

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

--  作者：SZDVYE
--  发布时间：2014/4/13 22:55:00
--  关联子表列定位

打开主表的时候，如何让关联表自动定位在第一列，同时主表定位在第一列。

两个关联表,主表A,父表A, 子表B

我在A表属性PositionChanged 或项目事件MainTableChanged加入代码都没有反应:

Select Case MainTable.Name
    Case "A"
    If Tables("A.B").current IsNot Nothing Then
    Tables("A.B").Select(0,0)
    End If
    If Tables("A.B") Is Nothing Then
    Tables("B").Select(0,0)
    End If
    Case "B"
    Tables("B.A").Select(0,0)
    Tables("B").Select(0,0)
End Select

--  作者：有点甜
--  发布时间：2014/4/13 23:03:00
--

你在表A的currentchanged事件写代码

If Tables("A.B").current IsNot Nothing Then

    Tables("A.B").Select(0,0)

End If

If Tables("A.B") Is Nothing Then

    Tables("B").Select(0,0)

End If

--  作者：SZDVYE
--  发布时间：2014/4/14 21:35:00
--
谢谢.很好很简洁.但是反过来不行喔,又该怎么写呢?

在表B的currentchanged事件写代码

If Tables("B.A").current IsNot Nothing Then

    Tables("B.A").Select(0,0)

End If
If Tables("B.A") Is Nothing Then

    Tables("A").Select(0,0)

End If

[此贴子已经被作者于2014-4-14 23:23:11编辑过]