主题：如何利用扫描仪，给一个项目中多张表中的指定列项，自动存储更名的照片。

如题所示，好像简单的用《文件监视器》是做不到的，烦请老师指点一下，（附后有一个项目案例）。谢谢。万分感谢。
此主题相关图片如下：画板 1.png

附件项目案例（开发版）：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:扫描仪测试.rar

分开判断不就好了？

 

Select Case CurrentTable.name
    Case "文档"
        Dim r As Row = Tables("文档").Current
        Dim str As String = r("文档照片")
        Dim count As Integer = str.Replace(chr(10), "").Split(chr(13)).length
        FileSys.CopyFile(e.FullPath, ProjectPath & "文档照片\" & r("文档编号") & count,True)
        r("文档照片") = iif(str>"", vbcrlf, "") & r("文档编号") & count

    Case "fa piao"
       
    Case "合同"
       
End Select

对的，对的，谢谢老师。 还是一老问题了，1、自动添加的图片，没有后缀名，无法正常浏览图片，2、当添加第二张及以后的照片时，列项变空了，且没有小图预览项。

谢谢老师，搞定。 再次感谢。