Foxtable(狐表)用户栏目专家坐堂 → [求助]双击关联表中的行,打开的窗口中显示的不是该行的记录


  共有5616人关注过本帖树形打印复制链接

主题:[求助]双击关联表中的行,打开的窗口中显示的不是该行的记录

帅哥哟,离线,有人找我吗?
dycjj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1292 威望:0 精华:0 注册:2011/8/17 21:12:00
[求助]双击关联表中的行,打开的窗口中显示的不是该行的记录  发帖心情 Post By:2013/7/6 23:41:00 [只看该作者]

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

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

End
If

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

请专家们帮我看一下.

先谢谢了,


 回到顶部
帅哥哟,离线,有人找我吗?
夕然
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:619 积分:3656 威望:0 精华:1 注册:2012/6/13 22:00:00
  发帖心情 Post By:2013/7/7 8:59:00 [只看该作者]

你的“见面管理”窗口字段绑定是哪个表?

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/7/7 8:59:00 [只看该作者]

Forms("见面管理")不可以是模式窗口

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/7/7 9:01:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By: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

 


 回到顶部
帅哥哟,离线,有人找我吗?
夕然
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:619 积分:3656 威望:0 精华:1 注册:2012/6/13 22:00:00
  发帖心情 Post By: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
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By: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
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1292 威望:0 精华:0 注册:2011/8/17 21:12:00
  发帖心情 Post By:2013/7/7 20:40:00 [只看该作者]

夕然啥时候学会买关子了


 回到顶部
帅哥哟,离线,有人找我吗?
dycjj
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1292 威望:0 精华:0 注册:2011/8/17 21:12:00
  发帖心情 Post By:2013/7/7 22:26:00 [只看该作者]

绑定的是会员见面表

 


 回到顶部