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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关联子表列定位

共有4373人关注过本帖树形打印复制链接主题：关联子表列定位

SZDVYE

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：213 积分：2228 威望：0 精华：0 注册：2012/2/3 14:14:00

关联子表列定位 发帖心情

Post By：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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：213 积分：2228 威望：0 精华：0 注册：2012/2/3 14:14:00

Post By：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编辑过]

主题：关联子表列定位