If Forms("考勤数据").Opened AndAlso e.Table.Current IsNot Nothing Then
If e.Table.Name ="考勤数据_table1" Then
With Tables("考勤数据_table2")
If .Cols.Contains("姓名") AndAlso e.Table.Cols.Contains("姓名") Then
Dim r As Integer
r = .FindRow("姓名 = '" & e.Table.Current("姓名") &"'" )
If r >= 0 Then '如果找到的话
.Position = r '定位到找到的行.
End If
End If
End With
ElseIf e.Table.Name ="综合奖惩记录表" Then
With Tables("考勤数据_table1")
If .Cols.Contains("姓名") Then
Dim r As Integer
r = .FindRow("姓名 = '" & e.Table.Current("姓名") &"'" )
If r >= 0 Then '如果找到的话
.Position = r '定位到找到的行.
End If
End If
End With
End If
End If
加好友 
发短信
Post By：2019/11/6 13:50:00 [显示全部帖子]
