Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]现在有AB两个窗口表，A表希望选择行的时候，如果B表有对应的行就选择，反之也一样


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

主题：[求助]现在有AB两个窗口表，A表希望选择行的时候，如果B表有对应的行就选择，反之也一样
帅哥哟，离线，有人找我吗？
81538475
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1303 积分：10518 威望：0 精华：1 注册：2018/1/20 12:40:00 		[求助]现在有AB两个窗口表，A表希望选择行的时候，如果B表有对应的行就选择，反之也一样  发帖心情 Post By：2023/4/27 10:20:00 [只看该作者]

表A：
If  Forms("报价表信息核对").Opened  Then
    If Tables("报价表信息核对_table1").Current IsNot Nothing Then
        With Tables("报价表信息核对_table2")
            If Tables("报价表信息核对_table2").Cols.Contains("绑定编号") Then
                Dim r As Integer
                
                r = .FindRow("绑定编号 = '" &  Tables("报价表信息核对_table1").Current("_identify") &"' " )
                'msgbox(Tables("报价表信息核对_table1").Current("批次"))
                If r >= 0 Then '如果找到的话
                    .Position = r '定位到找到的行.
                End If
            End If
        End With
    End If
End If
表B：
If  Forms("报价表信息核对").Opened  Then
    If Tables("报价表信息核对_table2").Current IsNot Nothing Then
        With Tables("报价表信息核对_table1")
            Dim r As Integer
            'msgbox(  Tables("报价表信息核对_table2").Current("批次"))
            r = .FindRow("_identify = '" &  Tables("报价表信息核对_table2").Current("绑定编号") &"'" )
            
            If r >= 0 Then '如果找到的话
                .Position = r '定位到找到的行.
            End If
            
        End With
    End If
End If

但是发现，在选择的信息不是匹配的信息的时候，也会跳转到之前匹配的那一行，不知道是哪里出的问题
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/4/27 10:28:00 [只看该作者]

                If r >= 0 Then '如果找到的话
systemready=false
                    .Position = r '定位到找到的行.
systemready=true
                End If
 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1303 积分：10518 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2023/4/27 11:06:00 [只看该作者]

有个问题就是，这么设置之后，drawcell 里面的设置的sytle ，就会花掉。怎么可以快速刷新呢。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/4/27 11:34:00 [只看该作者]

事件代码最后加一句
e.table.Refresh

 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1303 积分：10518 威望：0 精华：1 注册：2018/1/20 12:40:00 		[求助]修改后还是一样，选择的时候会跳  发帖心情 Post By：2023/4/27 15:07:00 [只看该作者]

修改后还是一样，选择的时候会跳

 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1303 积分：10518 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2023/4/27 15:09:00 [只看该作者]

以下是引用81538475在2023/4/27 11:06:00的发言：
有个问题就是，这么设置之后，drawcell 里面的设置的sytle ，就会花掉。怎么可以快速刷新呢。

修改后还是会有问题

 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1303 积分：10518 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2023/4/27 15:13:00 [只看该作者]

以下是引用有点蓝在2023/4/27 10:28:00的发言：
                If r >= 0 Then '如果找到的话
systemready=false
                    .Position = r '定位到找到的行.
systemready=true
                End If

不好意思，刚才应用错了。是这里修改后还有问题
[此贴子已经被作者于2023/4/27 15:13:33编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/4/27 15:14:00 [只看该作者]

请上传实例测试

 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1303 积分：10518 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2023/4/27 15:35:00 [只看该作者]

我发现是因为在切换表的时候，PositionChanged 会识别两次
第一次是原来选择的行，执行的第二次是新选择的
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/4/27 15:59:00 [只看该作者]

一般是有代码互相影响了

 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询