- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]点击右侧的“修改订单”按钮，却进入了第一行的“录入窗口”界面，而非选中的第二行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131809)
-- 发布时间：2019/3/6 22:19:00
-- [求助]点击右侧的“修改订单”按钮，却进入了第一行的“录入窗口”界面，而非选中的第二行
导航表窗口中，点击进入“入库表”，在右边的控件区，“修改订单”按钮，代码是 Forms("录入窗口").Open()
现，在“入库订单表”中点选第二行，再点击右侧的“修改订单”按钮，却进入了第一行的“录入窗口”界面，而非选中的第二行，这个不知道哪里出现问题了，求大师指正，谢谢！
[此贴子已经被作者于2019/4/30 9:52:03编辑过]
-- 发布时间：2019/3/6 22:33:00
--
方法一：和主表联动
http://www.foxtable.com/webhelp/scr/2631.htm
方法二：你录入窗口，直接绑定窗口表，如
入库表窗口_入库订单表.客户
入库表窗口_入库订单表.结算
等...
-- 发布时间：2019/3/6 22:54:00
-- 回复：（有点甜）方法一：和主表联动 http:/...
此主题相关图片如下：图2.png
此主题相关图片如下：图1.png
-- 发布时间：2019/3/6 22:59:00
--
入库表窗口_入库订单表.客户
-- 发布时间：2019/3/6 23:16:00
-- 回复：（有点甜）入库表窗口_入库订单表.客户
按你的意思，我把“录入窗口”的afterload代码改成：
Dim t As Table = Tables("录入窗口_入库明细表")
With Tables("入库表窗口_入库订单表")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "入库编号 = \'" & .Current("入库编号") & "\'" \'整数列与单精列的区别
End If
End With
t.OpenView("default")
“录入窗口”中的左上角的客户控件绑定到“入库订单表.客户”，结果却是内容为空：
此主题相关图片如下：3.png
[此贴子已经被作者于2019/4/30 9:52:21编辑过]
-- 发布时间：2019/3/6 23:41:00
-- 回复：（有点甜）入库表窗口_入库订单表.客户
由于将要绑定的这个副本表“入库表窗口_入库订单表”，本身就是模拟建的，所以绑定属性栏没有这一项，不知道应该怎么绑定，是要在窗口事件的afterload事件中修改关联表生成条件吗？
-- 发布时间：2019/3/6 23:48:00
-- 回复：（有点甜）方法一：和主表联动 http:/...
我也尝试过用第一种方法“和主表联动”，但是结果还是一样：
此主题相关图片如下：4.png
此主题相关图片如下：5.png
-- 发布时间：2019/3/6 23:54:00
-- 求助，急，卡这儿了
求助，急，卡这儿了
-- 发布时间：2019/3/7 8:37:00
--
求助
-- 发布时间：2019/3/7 8:52:00
--
改成这样啊，红色是主表的名称啊
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("表A").FindRow(dr)
If wz >=0 Then
Tables("表A").Position = wz
End If