| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 窗口打开数据的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169214) |
| -- 作者：lungby -- 发布时间：2021/6/7 18:02:00 -- 窗口打开数据的问题 表A 有 学号、姓名列 表B 有 学号、姓名、年龄、住址等列 希望实现目标： 用doubleclick功能双击表A中某行，然后用窗口C打开表B对应的“学号”列内容 如何在表B中查找表A此行对应的“学号”列内容？怎么定位？请写个具体的，没有在模板中找到。谢谢
|
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：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 |
| -- 作者：有点蓝 -- 发布时间：2021/6/10 17:06:00 -- e.Row 改为 tables("xxx表").current
|