因为2个表事件会不停的互相触发，加上：
http://www.foxtable.com/webhelp/topics/2218.htm
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("表A").FindRow(dr)
If wz >=0 Then
SystemReady = False
Tables("表A").Position = wz
SystemReady = TrueEnd If
反过来，如果你想在表A选定某行时，副本Table也能同步选定同一样，可以讲表A的CurrentChanged事件代码设置为：
If Forms("窗口1").Opened Then '如果窗口已经打开
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("窗口1_Table1").FindRow(dr)
If wz >=0 Then
SystemReady = False
Tables("窗口1_Table1").Position = wz
SystemReady = True
End If
End If
[此贴子已经被作者于2024/7/15 13:43:36编辑过]
加好友 
发短信
Post By：2024/7/15 13:43:00 [显示全部帖子]
