- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 文件监视 把多个文件存放到员工表照片列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105040)
-- 发布时间：2017/8/10 15:31:00
-- [求助] 文件监视 把多个文件存放到员工表照片列
Dim r As Row = Tables("员工").Current
\'r("照片") = r("工号") & ".jpg"
For Each File As String In FileSys.GetFiles("C:\\photo\\*.jpg")
r("照片") = r("照片") & Chr(10) & File
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\\" & r("照片"),True)
Next
写不出来，求指点
-- 发布时间：2017/8/10 18:23:00
--
Dim r As Row = Tables("员工").Current
Dim ls = r.DataRow.Lines("照片")
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\\" & e.Name,True)
ls.add(e.name)
r.DataRow.lines("照片") = ls
-- 发布时间：2017/8/10 18:48:00
--
基础基础真的很重要。。。要不你只知道能实现，却写不出来。。。如果要给每张照片按123数字重新命名，，，又怎么写，我只知用循环语句，但没有认真看过。。。有点甜大师，在写个示例。
-- 发布时间：2017/8/10 19:37:00
--
大师，运行后，没有反应。。是不是哪里弄错了。
-- 发布时间：2017/8/10 23:32:00
--
你文件监视器生效了吗？试试是否弹出值
Dim r As Row = Tables("员工").Current
Dim ls = r.DataRow.Lines("照片")
msgbox(e.fullPath & " " & e.name)
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\\" & e.Name,True)
ls.add(e.name)
r.DataRow.lines("照片") = ls
-- 发布时间：2017/8/11 1:05:00
--
With FileWatcher
.Path = "c:\\Photo"
.Delay = 500
.Enabled = True
End With
应该是生效的，我测试过单文件可以，，就是多个文件怎么弄进去，因没有示例，不知从哪下手
-- 发布时间：2017/8/11 9:16:00
--
单文件和多文件都是一样的。5楼的代码弹出提示了吗？
-- 发布时间：2017/8/12 13:38:00
--
不知道什么意思
此主题相关图片如下：傲游截图20161125101013.png
-- 发布时间：2017/8/12 13:43:00
--
弄错了，这是我删除后再粘贴新文件后弹出来的。
我重新测试了下，什么都没有反应。
我发个项目，大神在看看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口框架.table |
-- 发布时间：2017/8/12 14:27:00
--
调换一下代码的位置
With FileWatcher
.Path = "c:\\Photo"
.Delay = 500
.Enabled = True
End With
Forms("主界面").open