Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口打开数据的问题


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

主题：窗口打开数据的问题
帅哥哟，离线，有人找我吗？
lungby
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：97 积分：839 威望：0 精华：0 注册：2018/3/1 9:46:00 		窗口打开数据的问题  发帖心情 Post By：2021/6/7 18:02:00 [只看该作者]

表A  有  学号、姓名列
表B  有  学号、姓名、年龄、住址等列

希望实现目标：

用doubleclick功能双击表A中某行，然后用窗口C打开表B对应的“学号”列内容

如何在表B中查找表A此行对应的“学号”列内容？怎么定位？请写个具体的，没有在模板中找到。谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/7 20:06:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/0553.htm

表A双击事件
Dim r As Integer
r = Tables("表B").FindRow("[学号] = '" & e.Row("学号") & "'") '从 第一行开始查找
If r >= 0 Then '如果找到的话
    Tables("表B").Position = r '定位到找到的行.
    e.cancel=True
    Forms("窗口C").Open
End If
 回到顶部
帅哥哟，离线，有人找我吗？
lungby
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：97 积分：839 威望：0 精华：0 注册：2018/3/1 9:46:00 		  发帖心情 Post By：2021/6/10 17:03:00 [只看该作者]

如果过将这个功能用在菜单栏的按钮 ，怎么用呢？前面加入if条件

If e.Row("性别") = "women"    
    Dim r As Integer
    r = Tables("表B").FindRow("[学号] = '" & e.Row("学号") & "'") '从 第一行开始查找
   If r >= 0 Then '如果找到的话
    Tables("表B").Position = r '定位到找到的行.
    e.cancel=True
    Forms("窗口C").Open
   End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/10 17:06:00 [只看该作者]

e.Row
改为
tables("xxx表").current
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03613 秒, 4 次数据查询