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

 参考代码

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