问题如下:
有一列标题为“退役电子档案”为图片列,利用扫描仪扫描的文件存放在这一列,根据帮助里说明,我进行了以下设置:
在AfterOpenProject事件设置代码:
If FileSys.DirectoryExists(ProjectPath & "photo")=False
Then '如果目录不存在
FileSys.CreateDirectory(ProjectPath
& "photo")
'则建立
End If
With FileWatcher
.Path = ProjectPath & "photo"
.Delay = 1000
.Enabled =
True
End With
然后将FileCreated事件代码设置为:
If FileSys.DirectoryExists(ProjectPath
& "自主就业")=False Then '如果目录不存在
FileSys.CreateDirectory(ProjectPath
& "自主就业")
'则建立
End If
Dim Index As
Integer = CurrentTable.Current("退役电子档案").split(vbcrlf).length
CurrentTable.Current("退役电子档案")=
CurrentTable.Current("退役年度") &
"-" &
CurrentTable.Current("姓名") &
Index & ".jpg" &
vbcrlf
FileSys.CopyFile(e.FullPath, ProjectPath
& "自主就业\"
& CurrentTable.Current("退役年度")
& "-"
& CurrentTable.Current("姓名")
& Index & ".jpg",True)
扫描文件都没有问题,也存在了软件目录下的“自主就业”文件夹内,但点击“退役电子档案”单元格时,找不到图片,怎么解决,谢谢专家。如下图:
此主题相关图片如下:截图00.jpg