以文本方式查看主题

-  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