主题：[求助]扫描后的图片，点击单元查看不到图片，求助！！！

If FileSys.DirectoryExists(ProjectPath & "自主就业")=False Then  '如果目录不存在

    FileSys.CreateDirectory(ProjectPath & "自主就业") '则建立

End If

Dim Index As Integer = CurrentTable.Current.DataRow.lines("退役电子档案").count + 1

CurrentTable.Current("退役电子档案") = ProjectPath & "自主就业\" & CurrentTable.Current("退役年度") & "-" & CurrentTable.Current("姓名") & format(Date.now,"yyyyMMddHHmmssfffff") & Index & ".jpg"

FileSys.CopyFile(e.FullPath, ProjectPath & "自主就业\" & CurrentTable.Current("退役年度") & "-" & CurrentTable.Current("姓名") & format(Date.now,"yyyyMMddHHmmssfffff") & Index & ".jpg",True)