子表返回父表时如何才能自动返回到父表的对应行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 子表返回父表时如何才能自动返回到父表的对应行

共有3502人关注过本帖树形打印复制链接主题：子表返回父表时如何才能自动返回到父表的对应行

有点甜

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

加好友

发短信

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

Post By：2014/9/22 9:28:00 [显示全部帖子]

Tables("父表").FindRow("姓名 = '" & Tables("子表").Current("姓名") & "'")

有点甜

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

加好友

发短信

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

Post By：2014/9/22 9:39:00 [显示全部帖子]

以下是引用cxabc123在2014-9-22 9:34:00的发言：
放在那儿呀

CurrentChanged事件

If e.Table.Current Is Nothing Then Return

Dim r As Integer
r = Tables("父表").FindRow("姓名 = '" & Tables("子表").Current("姓名") & "'")
If r >= 0 Then '如果找到的话
Tables("父表").Position = r '定位到找到的行.
End If

有点甜

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

加好友

发短信

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

Post By：2014/9/22 11:49:00 [显示全部帖子]

参考代码

If e.Table.Current Is Nothing Then Return

For Each ra As Relation In Relations
    If ra.ChildTable.Name = e.Table.Name Then
        Dim filter As String = ""
        filter = ra.ParentColumn.Name & " = '" & e.Table.Current(ra.ChildColumn.Name) & "'"
        Dim r As Integer
        r = Tables(ra.ParentTable.Name).FindRow(filter)
        If r >= 0 Then '如果找到的话
            Tables(ra.ParentTable.Name).Position = r '定位到找到的行.
        End If
    End If
Next

http://www.foxtable.com/help/topics/1941.htm

有点甜

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

加好友

发短信

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

Post By：2014/9/22 14:43:00 [显示全部帖子]

回复楼上，你这个矛盾，父表对应的子表有n多个，你怎么定位？定位到哪一行？

下一主题 >> << 上一主题

主题：子表返回父表时如何才能自动返回到父表的对应行