以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于关联表选中行之后弹出窗口能取用当前数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82635)
--  作者：benwong2013
--  发布时间：2016/3/22 0:09:00
--  [求助]关于关联表选中行之后弹出窗口能取用当前数据
在窗口中有一个T_Order.T_Report的关联表Table，希望用户在选中Table某一行时，点击“修改”按键能弹出窗口A，并奖选中行的数据自动加载到窗口A中；
请问这个“修改”按键代码应该如何写？

Dim nr As Row = Tables("T_Order.T_Report").current
nr("报告编号") = Tables("T_Report").current("报告编号")
Forms("新增报告-常规界面").Open()



图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：2016/3/22 7:00:00
--  

1、可以单独为关联表设计一个窗口：

http://www.foxtable.com/help/topics/2497.htm

 
--  作者：狐狸爸爸
--  发布时间：2016/3/22 7:02:00
--  

2、或者：

http://www.foxtable.com/help/topics/2644.htm

 
--  作者：benwong2013
--  发布时间：2016/3/22 9:00:00
--  
请问有没有更直接的办法在这个按键空间上设置？
--  作者：大红袍
--  发布时间：2016/3/22 9:13:00
--  
认认真真看2楼， 新增报告-常规界面 窗口，要绑定关联表的列啊。
--  作者：大红袍
--  发布时间：2016/3/22 9:16:00
--  
以下是引用benwong2013在2016/3/22 9:00:00的发言：
请问有没有更直接的办法在这个按键空间上设置？

 

如果你绑定的是主表的列，就定位一下主表

 

Dim nr As Row = Tables("T_Order.T_Report").current
Dim idx As Integer = Tables("T_Report").FindRow("报告编号 = \'" & nr("报告编号") & "\'")
If idx >= 0 Then
    Tables("T_Report").Position = idx
End If
Forms("新增报告-常规界面").Open()