以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  CurrentChanged事件后两表同步，闪烁很厉害  (http://foxtable.com/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 --   做个例子发上来看看