主题：[求助] 文件监视 把多个文件存放到员工表照片列

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

 

基础基础真的很重要。。。要不你只知道能实现，却写不出来。。。如果要给每张照片按123数字重新命名，，，又怎么写，我只知用循环语句，但没有认真看过。。。有点甜大师，在写个示例。

大师，运行后，没有反应。。是不是哪里弄错了。

你文件监视器生效了吗？试试是否弹出值

 

 

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

 

单文件和多文件都是一样的。5楼的代码弹出提示了吗？

不知道什么意思

弄错了，这是我删除后再粘贴新文件后弹出来的。

调换一下代码的位置