全局设置里面Positionchanged 设置。 大版本更新之前没有问题，更新之后出现的问题。
选择任何其中一个表之后，就会崩溃。去掉这个代码就正常。
考勤数据_table1 和 综合奖惩记录表 这两个表的姓名都是唯一值。。
考勤数据_table2的姓名有多个重复值。
不知道是不是这个原因造成的。
If CurrentTable.Name ="考勤数据_table1" Then
If Forms("考勤数据").Opened Then
With Tables("考勤数据_table2")
If .Cols.Contains("姓名") Then
Dim r As Integer
r = .FindRow("姓名 = '" & Tables("考勤数据_table1").Current("姓名") &"'" )
If r >= 0 Then '如果找到的话
.Position = r '定位到找到的行.
End If
End If
End With
End If
Else If CurrentTable.Name ="综合奖惩记录表" Then
If Forms("考勤数据").Opened Then
With Tables("考勤数据_table1")
If .Cols.Contains("姓名") Then
Dim r As Integer
r = .FindRow("姓名 = '" & Tables("综合奖惩记录表").Current("姓名") &"'" )
If r >= 0 Then '如果找到的话
.Position = r '定位到找到的行.
End If
End If
End With
With Tables("考勤数据_table2")
If .Cols.Contains("姓名") Then
Dim r As Integer
r = .FindRow("姓名 = '" & Tables("综合奖惩记录表").Current("姓名") &"'" )
If r >= 0 Then '如果找到的话
.Position = r '定位到找到的行.
End If
End If
End With
End If
End If
加好友 
发短信
Post By：2019/11/6 13:11:00 [显示全部帖子]
