- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 通过扫描仪，如何向指定列自动添加多张图片 (http://foxtable.net/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 但用以上的方式，列表中，只能传一张。如果转多张，怎样写，请老师指点下。万分感谢。