- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何利用扫描仪，给一个项目中多张表中的指定列项，自动存储更名的照片。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103102)
-- 发布时间：2017/6/30 15:09:00
-- 如何利用扫描仪，给一个项目中多张表中的指定列项，自动存储更名的照片。
如题所示，好像简单的用《文件监视器》是做不到的，烦请老师指点一下，（附后有一个项目案例）。谢谢。万分感谢。
此主题相关图片如下：画板 1.png
附件项目案例（开发版）：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:扫描仪测试.rar |
[此贴子已经被作者于2017/6/30 15:16:08编辑过]
-- 发布时间：2017/6/30 15:33:00
--
分开判断不就好了？
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 "发票"
Case "合同"
End Select
-- 发布时间：2017/6/30 15:51:00
--
对的，对的，谢谢老师。 还是一老问题了，1、自动添加的图片，没有后缀名，无法正常浏览图片，2、当添加第二张及以后的照片时，列项变空了，且没有小图预览项。
[此贴子已经被作者于2017/6/30 15:54:37编辑过]
-- 发布时间：2017/6/30 16:25:00
--
谢谢老师，搞定。 再次感谢。