专家坐堂-Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  CurrentChanged事件后两表同步，闪烁很厉害  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147289)

--  作者：有点蓝
--  发布时间：2020/3/13 13:20:00
--
试试

Tables("短信内容").StopRedraw
Dim i As Date = Tables("短信查看_table1").Current("通知时间")
    Dim wz As Integer = Tables("短信内容").Findrow("通知时间 = #" & i & "#")
    If wz >=0 Then
        Tables("短信内容").Select(wz,0)
    End If
Tables("短信内容").ResumeRedraw

--  作者：有点蓝
--  发布时间：2020/3/13 15:06:00
--
如果数据多，选中不同的行，其它表也跟着跳，肯定就闪，估计其它2个表也有CurrentChanged代码吧

--  作者：有点蓝
--  发布时间：2020/3/13 15:53:00
--
做个例子发上来看看