- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]扫描的图片能在一个单元格中存储多个扫描图片 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=45728)
-- 发布时间：2014/2/10 8:27:00
-- [求助]扫描的图片能在一个单元格中存储多个扫描图片
[求助]扫描的图片能在一个单元格中存储多个扫描图片，也就是连续扫描多个图片存在一个图片型的单元格中，谢谢。
-- 发布时间：2014/2/10 8:38:00
--
设置为多文件列.
赋值采取追加的形式
CurrentTable.Current("第十列") & "文件名" & vbcrlf
-- 发布时间：2014/2/10 9:07:00
--
按照赋值追加方法：写个代码如下，是文件监视器里的，不行，也就是扫一个图片后，再扫几个能放在一个单元格是，点击查看，看怎么修改：
Dim r As Row = Tables("收文登记_收文").Current
r("处理签扫描") = r("收文编号") & vbcrlf & ".jpg"
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\\影印文件夹\\" & r("处理签扫描"),True)
-- 发布时间：2014/2/10 9:08:00
--
几个扫描图片为：收文编号－1.jpg,收文编号－2.jpg,收文编号－3.jpg......
-- 发布时间：2014/2/10 9:14:00
--
Dim Index As Integer = CurrentTable.Current("第十列").split(vbcrlf).length
CurrentTable.Current("第十列")=CurrentTable.Current("第十列") & "a-" & Index & ".jpg" & vbcrlf
-- 发布时间：2014/2/10 9:52:00
--
老师：修改代码后，第一张图片可以，第二张就不行了，是怎么回事呢，请审核代码：
Dim Index As Integer = CurrentTable.Current("处理签扫描").split(vbcrlf).length
CurrentTable.Current("处理签扫描")=CurrentTable.Current("处理签扫描") & "a_" & Index & ".jpg" & vbcrlf
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\\影印文件夹\\" & CurrentTable.Current("处理签扫描"),True)
-- 发布时间：2014/2/10 9:57:00
--
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\\影印文件夹\\" & CurrentTable.Current("处理签扫描"),True) FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\\影印文件夹\\" & "a_" & Index & ".jpg",True) |
-- 发布时间：2014/2/10 10:52:00
--
下面图片是哪里出问题了，请赐教！
此主题相关图片如下：截图03.png