以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  两个表格滚动条 同步 如何实现 求  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65268)

--  作者:打错潇洒
--  发布时间:2015/3/12 16:27:00
--  两个表格滚动条 同步 如何实现 求
两个表格滚动条 同步 如何实现 求
--  作者:有点甜
--  发布时间:2015/3/12 16:30:00
--  
 
AfterScroll
Dim tbl As Table = Tables("任务")
If
e.Table.TopVisibleRow <> tbl.TopVisibleRow Then
    tbl.TopVisibleRow = e.
Table.TopVisibleRow
    e.
Table.TopVisibleRow = e.Table.TopVisibleRow \'此行不可少,确保第一个可见行完整显示
End
If