此主题相关图片如下:图像 1.png
文件监视器代码 FileCreated事件
Dim r As Row = Tables("出库明细").Currentr("送货单") = r("送货单号") & ".jpg"FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\" & r("送货单"),True)
监控目录,AfterOpenProject事件
With FileWatcher .Path = "E:\狐表\账册\蓝峰管理\送货单" .Delay = 1000 .Enabled = TrueEnd With
老师,找不出原因啊