Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
If DLookup("照片", "员工", "姓名 ='" & Me.姓名 & "'") <> "" Or Not IsNull(DLookup("照片", "员工", "姓名 ='" & Me.姓名 & "'")) Then
Me![BookImage1].Picture = DLookup("照片", "员工", "姓名 ='" & Me.姓名 & "'")
Else
Me![BookImage1].Picture = ""
End If
End Sub