以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]FB是否可以同时current两个表中的不同行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=29766)
--  作者：西瓜住持
--  发布时间：2013/3/13 10:31:00
--  [求助]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
--  作者：西瓜住持
--  发布时间：2013/3/13 11:04:00
--  
简单点就是 我用DataTables.Find查找到某条记录后，如何将条记录的状态变为当前行current
--  作者：狐狸爸爸
--  发布时间：2013/3/13 11:08:00
--  
1楼的代码，不就是你要的吗，这个代码不行吗？
--  作者：西瓜住持
--  发布时间：2013/3/13 11:17:00
--  

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

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

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

表B,编码列M其他列S

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

双击表B中任意一列 传递编码至全局变量X，并打开窗口O,希望实现 M,H,S的值自动显示。
--  作者：狐狸爸爸
--  发布时间：2013/3/13 11:25:00
--  

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

 
--  作者：西瓜住持
--  发布时间：2013/3/13 11:33:00
--  

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:双表引用测试.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