以文本方式查看主题 -  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=103077)

--  作者：发哥 --  发布时间：2017/6/30 10:30:00 --  通过扫描仪，如何向指定列自动添加多张图片 此主题相关图片如下：1235.gif 利用《文件监视器》，并对照着示例二利用文件监视器，非常方便。但现在有个问题，它只能自动改名并添加一张图片。 但我想的是可以添加多张照片（文件名也是自动改名并排序，照片列中有照片，它也会自动添加上的） 麻烦狐爸，以下面的代码为例，改写下我参照下。 Dim r As Row = Tables("员工").Current r("照片") = r("工号") & ".jpg" FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\\" & r("照片"),True) 这里假定照片是jpg格式。 万分感谢，也万分感慨，使用狐表已近十年，但我还是只小白。。。 [此贴子已经被作者于2017/6/30 10:30:50编辑过]

--  作者：有点蓝 --  发布时间：2017/6/30 10:49:00 --   Dim r As Row = Tables("员工").Current  r("照片") = IIF(r.isnull("照片"),"" ,r("照片") & vbcrlf) & r("工号") & ".jpg"

--  作者：发哥 --  发布时间：2017/6/30 11:17:00 --   您好，刚测试了一下，好像不对的了，不能显示图片（好像没路径） 我想的是：那照片列照片，会自动改名：例如：工号1，工号2，工号3.。。。。等 [此贴子已经被作者于2017/6/30 11:24:54编辑过]

--  作者：有点甜 --  发布时间：2017/6/30 12:04:00 --   参考代码   m r As Row = Tables("员工").Current Dim str As String = r("照片") Dim count As Integer = r.DataRow.Lines("照片").Count FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\\" & r("工号") & count & ".jpg"  ,True) r("照片") = iif(str>"",str & vbcrlf, "") & r("工号") & count & ".jpg" [此贴子已经被作者于2017/6/30 16:43:37编辑过]

--  作者：发哥 --  发布时间：2017/6/30 14:38:00 --   老师，还是有问题。麻烦您看看。 此主题相关图片如下：画板 1.png

--  作者：有点蓝 --  发布时间：2017/6/30 16:06:00 --   Dim r As Row = Tables("员工").Current Dim str As String = r("照片") Dim count As Integer = r.DataRow.Lines("照片").Count FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\\" & r("工号") & count & ".jpg"  ,True) r("照片") = iif(str>"",str & vbcrlf, "") & r("工号") & count & ".jpg"

--  作者：发哥 --  发布时间：2017/6/30 16:21:00 --   谢谢。搞定， 再次感谢您的指引。

--  作者：发哥 --  发布时间：2017/7/1 14:05:00 --   请问老师，如果，存放的路径是在服务器上，那么利用上面的代码，该怎么改呢，谢谢。

--  作者：有点蓝 --  发布时间：2017/7/1 15:06:00 --   共享方式还是ftp 在服务器上就没有办法使用文件监视器了

--  作者：发哥 --  发布时间：2017/7/1 16:32:00 --   学习了下别人方式，ftp，是可以的了。 Dim r As Row = Tables("合同").Current r("合同照片") = r("合同编号") & "_HS" & ".jpg" Dim ftp1 As New FtpClient ftp1.Host="192.168.xx.xx" ftp1.Account = "xxxxxxxxxx" ftp1.Password = "xxxxxx" If ftp1.Upload(e.FullPath,"\\xx\\xx\\" & r("合同编号"),True) = True Then Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Else Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If 但用以上的方式，列表中，只能传一张。如果转多张，怎样写，请老师指点下。万分感谢。