以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]双击关联表中的行，打开的窗口中显示的不是该行的记录  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=37622)
--  作者：dycjj
--  发布时间：2013/7/6 23:41:00
--  [求助]双击关联表中的行，打开的窗口中显示的不是该行的记录

我用窗口中的Table绑定了一个关联表，然后在关联表的DoubleClick事件中设定了代码 

If e.Table.Name = "会员表.会员见面表" Then
   Forms("见面管理").Open()
End If

可是,问题来了 ,打开的窗口中显示的内容不是该行的记录,打开的窗口中显示的内容永远是会员见面表中光标所在行的记录.这让我无法对选中行的记录进行修改.

请专家们帮我看一下.

先谢谢了,
--  作者：夕然
--  发布时间：2013/7/7 8:59:00
--  
你的“见面管理”窗口字段绑定是哪个表？
--  作者：lsy
--  发布时间：2013/7/7 8:59:00
--  
Forms("见面管理")不可以是模式窗口
--  作者：有点甜
--  发布时间：2013/7/7 9:01:00
--  

看看：

 

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

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

 
--  作者：lsy
--  发布时间：2013/7/7 9:02:00
--  

Dim dr As DataRow = e.Row.DataRow
Forms("见面管理").Open()
If Forms("见面管理").Opened Then
    With Tables("见面管理_Table1")
        Dim j As Integer = .FindRow(dr)
        .Position = j
    End With
End If

 
--  作者：夕然
--  发布时间：2013/7/7 9:05:00
--  

大概了解你的意思，你给我个大概的意思，就给你个大概的回答吧

With CurrentTable
    Dim r As Integer
    r = .FindRow("[公司名称] Like \'*湛江*\'", .Position + 1, True ) \'从当前行的下一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行。
    End If
End With
--  作者：lsy
--  发布时间：2013/7/7 9:21:00
--  

如果只想显示双击的行：

Dim i As Integer = e.Row("_Identify")
Forms("见面管理").Open()
If Forms("见面管理").Opened Then
    Tables("见面管理_Table1").Filter = "_Identify = " & i
End If
--  作者：dycjj
--  发布时间：2013/7/7 20:40:00
--  

夕然啥时候学会买关子了
--  作者：dycjj
--  发布时间：2013/7/7 22:26:00
--  

绑定的是会员见面表