主题：关于窗口跳转 传递数据

 用FindRow定位

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

Dim xzh As String = Tables("企业信息查询_table1").Current("企业编码")
With Tables("企业信息")
    Dim r As Integer
    r = .FindRow("企业编码 = '" & xzh & "'")
    If r > - 1 Then '如果找到符合条件的行
        .Position = r '则选择该行

    Else

        .filter = "1=2"
    End If
End With
Forms("企业信息详情").Show()
Forms("企业信息查询").Close()