很明显的错误嘛
If FileSys.FileExists(DataTables("毕业生临时表").DataCols("照片").DefaultFolder & "\毕业生电子照" & r("照片")) = True Then
r("是否有照片") = "提交照片"
End If
按照楼上的信息:
FileSys.FileExists(DataTables("毕业生临时表").DataCols("照片").DefaultFolder & "\毕业生电子照" & r("照片")) 合成的文件名肯定不存在
正确的应该是:
FileSys.FileExists(DataTables("毕业生临时表").DataCols("照片").DefaultFolder & "\毕业生电子照\” & r("照片")) 才对