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

在子表第十行，现在要返回父表，返回到父表后，光标能够自动聚焦到子表第十行相对应的父表，比如父表与子表的关联列为姓名，在子表时当前行的姓名为张三，返回父表时光标自动聚焦到父表的张三行

利用FINDROW http://www.foxtable.com/help/topics/0553.htm

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

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

放在那儿呀

放在哪里.关键看你想什么时候执行,  这代码放在任何地方都可以.

 

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

 参考代码

 

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