老师,我选定正本表的每一行时窗口表(副本)他会在副本表中从选定的一行到第一行闪阅一边然后再定位到选定的一行。
If Forms("通讯录").Opened Then '如果窗口已经打开
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("通讯录_Table8").FindRow(dr)
If wz >=0 Then
Tables("通讯录_Table8").Position = wz
End If
End If
If Forms("通讯录").Opened Then '如果窗口已经打开
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("通讯录_Table1").FindRow(dr)
If wz >=0 Then
Tables("通讯录_Table1").Position = wz
End If
End If