Foxtable(狐表)用户栏目专家坐堂 → [求助]双击窗口不能对应当前行?


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

主题:[求助]双击窗口不能对应当前行?

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


加好友 发短信
等级:幼狐 帖子:136 积分:915 威望:0 精华:0 注册:2016/3/8 17:16:00
[求助]双击窗口不能对应当前行?  发帖心情 Post By:2016/10/10 11:50:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20161010095227.png
图片点击可在新窗口打开查看

前面那个问题解决了,但是我想在“预定窗口”里双击就可以打开“预定修改”窗口,但是打开后,里面的信息不是当前行的!怎么才能双击一行的时候,打开的窗口也能对应当前行?我在表里打开是可以的,但是双击窗口里的table打开的确不能对应当前行?

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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/10 12:01:00 [只看该作者]

双击代码全部贴出来

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


加好友 发短信
等级:幼狐 帖子:136 积分:915 威望:0 精华:0 注册:2016/3/8 17:16:00
  发帖心情 Post By:2016/10/10 14:33:00 [只看该作者]

在表里双击:Doubleclick:Forms("预定修改").Open()

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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/10 14:48:00 [只看该作者]

试试

e.Cancel = True
Forms("预定修改").Open()

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


加好友 发短信
等级:幼狐 帖子:136 积分:915 威望:0 精华:0 注册:2016/3/8 17:16:00
  发帖心情 Post By:2016/10/10 15:09:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20161010150627.png
图片点击可在新窗口打开查看

不行,现在双击窗口里的Table第一行,但是出现的窗口对应是的第二行的内容

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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/10 15:56:00 [只看该作者]

应该是有其他代码影响了。上例子看看

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


加好友 发短信
等级:幼狐 帖子:136 积分:915 威望:0 精华:0 注册:2016/3/8 17:16:00
  发帖心情 Post By:2016/10/10 16:19:00 [只看该作者]

窗口绑定的表是作为副本的,会不会是这个原因?

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


加好友 发短信
等级:幼狐 帖子:136 积分:915 威望:0 精华:0 注册:2016/3/8 17:16:00
  发帖心情 Post By:2016/10/10 16:35:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


弄个例子各位帮我看看

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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/10 16:53:00 [只看该作者]

DoubleClick事件

e.Cancel = True
Dim idx As Integer = Tables("表A").FindRow("第一列 = '" & e.Row("第一列") & "'")
If idx > -1 Then Tables("表A").Position = idx
Forms("窗口2").Open()

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


加好友 发短信
等级:幼狐 帖子:136 积分:915 威望:0 精华:0 注册:2016/3/8 17:16:00
  发帖心情 Post By:2016/10/10 17:18:00 [只看该作者]

问题解决!!!感谢有点蓝!!!非常感 谢


 回到顶部