| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]文件监视器 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108933) |
| -- 作者：恒隆君 -- 发布时间：2017/11/1 9:31:00 -- [求助]文件监视器 本页地址：http://www.foxtable.com/webhelp/scr/1963.htm 文件监视器： 1. 是否可以监视多个文件夹。 2. 或者只监视一个文件夹，但以下代码可以只在指定的表和列才执行。 现在扫描任何一个图，表员中照片列都就改变。。。 然后将FileCreated事件代码设置为： Dim r As Row = Tables("刀具验收").Current r("图片") = r("刀具编号") & ".jpg" FileSys.CopyFile(e.FullPath,"\\\\Wuyd9m8cjk2\\tms\\刀具检验图片\\"& r("图片"),True) 实现功能： 1. 表员工列照片自动自动上传 C:\\photo的新图片。 2. 表QC检验表 列巡检，列首检，列终检可以上传 C:\\photo的新图片。 [此贴子已经被作者于2017/11/1 11:15:08编辑过]
|
| -- 作者：有点甜 -- 发布时间：2017/11/1 9:53:00 -- 1、FileCreated 事件写代码不行？你写了什么代码？贴出来；
2、设置一个变量vars("列")，在FileCreated里面，判断变量的值，对应给对应的列赋值。 |
| -- 作者：恒隆君 -- 发布时间：2017/11/1 11:13:00 -- Select Case MainTable.Name Case "刀具验收" Dim r As Row = Tables("刀具验收").Current r("图片") = r("刀具编号") & ".jpg" FileSys.CopyFile(e.FullPath,"\\\\Wuyd9m8cjk2\\tms\\刀具检验图片\\"& r("图片"),True) End Select 如果这样，是无效的。。 [此贴子已经被作者于2017/11/1 11:14:55编辑过]
|
| -- 作者：有点甜 -- 发布时间：2017/11/1 12:02:00 -- 1、图片复制到对应文件夹了没有？
2、你图片列的列属性->存放目录，设置成 \\\\Wuyd9m8cjk2\\tms\\刀具检验图片\\ 了没有？ |
| -- 作者：恒隆君 -- 发布时间：2017/11/1 12:49:00 -- 可以了。谢谢 |