主题：[求助]FB是否可以同时current两个表中的不同行

如题：FB是否可以同时current两个表中的不同行

如何将current 定位到指定位置？

 

下面代码参考：

Dim dr As DataRow
dr = DataTables("患者基本信息表").Find("[病历号] = ' " & vars("病历号传递") & " '", "首诊日期 desc")
If dr IsNot Nothing Then
Dim wz As Integer = Tables("患者基本信息表").FindRow(dr)
If wz >= 0 Then
Tables("患者基本信息表").position = wz
End If
End If

简单点就是 我用DataTables.Find查找到某条记录后，如何将条记录的状态变为当前行current

1楼的代码，不就是你要的吗，这个代码不行吗？

不行哦。我把我当前的应用环境说明下吧。

全局变量X，用于传递编码M

表A,编码列M（唯一）,其他列H

表B,编码列M其他列S

现有一独立窗口O，三个TEXTBOX,绑定A中字段M,H,B中字段S

双击表B中任意一列 传递编码至全局变量X，并打开窗口O,希望实现 M,H,S的值自动显示。

B表的DoubleClick事件：

 

Dim dr As DataRow
dr = DataTables("A表").Find("M = '" & e.Row("M")  & "'")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("A表").FindRow(dr)
    If wz >= 0 Then
        Tables("A表").position = wz

         Forms("窗口").Open

     Else 

         MessaageBox.show("A木有对应的行")
    End If
End If

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:双表引用测试.foxdb

搞定了,谢谢贺老大.我弄了个小例子传上来吧.毕竟这种应用模式用到的地方还是比较多的.

我之前是思路有问题,事件放在afterload里了 ><，

Dim dr As DataRow
dr = DataTables("表A").Find("第一列 = '" & e.Row("第一列")  & "'")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("表A").FindRow(dr)
    If wz >= 0 Then
        Tables("表A").position = wz
         Forms("窗口1").Open
     Else
         MessageBox.show("A木有对应的行")
    End If
Else
        MessageBox.show("A木有对应的行")

End If