两个窗口PPT.PPT副屏，均有一副本表控件，对应一个主表。希望在窗口PPT的表控件选中行时，窗口PPT副屏的表也移动到对应行。
采取以下两种试，都能定位到对应行，但窗口PPT副屏中的行要滚动多次后才能停在对应行，请问如何解决。
If Forms("PPT副屏").Opened()
Dim t As Table = Tables("PPT_Table1")
Dim t2 As Table = Tables("PPT副屏_Table1")
Dim zx As Integer
If t.Current IsNot Nothing
zx = t.current("总序")
With t2
Dim r As Integer
r = .FindRow( "[总序] = " & zx) '从第一行开始查找
If r >= 0 Then '如果找到的话
.Position = r '定位到找到的行.
End If
End With
End If
End If
If Forms("PPT副屏").Opened()
Dim t As Table = Tables("PPT副屏_Table1")
Dim p1 As Integer = e.Table.Position '两表排序、行是完全一致的
t.Position = p1
End If
加好友 
发短信
Post By：2017/9/14 11:55:00 [只看该作者]
此主题相关图片如下：1.png
