[求助]分项目存储附件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

运行时提示：找不到网络名，这是啥意思？

那就是你给定的网络路径不正确。

我在本机上设的文件夹共享，为测试方便，在全局代码中设好的哟，资源管理器中都可以直接打开的

先分析出那一行代码出错，然后看看这一行代码合成的路径是否有问题。

检查过，全局代码中共享存储路径不能有$符号？去掉美元符号，就正常另外，选中上传附件列有内容的单元格，再上传同样的多个附件，附件上传成功，这个单元格内容被清空，为何？

[此贴子已经被作者于2015/3/24 16:28:35编辑过]

分析代码，用排除法，看看执行了什么代码导致单元格内容为空，先分析，再解决。

现在要管理各个项目的设计方案，每个项目都会有很多设计文案要上传到服务器。

在服务器上设置有一个共享文件夹用来存储这些文件，多个客户端来上传各自的文件。

目的：

在文案表，如果还没有任何一个文案上传，可以点“上传图纸”列，可以添加附件到共享文件夹。

如果已经有了上传的文件（可能会越来越多），如果还要增加空行，再上传附件，操作就会不方便，所以，想点任何一行的“上传图纸”列的“插入文件”按钮，都可以上传附件。

添加附件完之后删除没有意义的空行－－－也就是 title为空值的行。

设计：

在全局代码中设置有共享文件夹的路径。

问题：

1、见图，当第一次添加附件后，最开始的空行显示的并不是共享文件夹的文件名，而是系统自动在本项目的文件夹里又建了一个与共享文件夹同名的文件夹，并把这些附件都加了进去————这岂不是相当于在本机也复制了一次附件，没有必要啊，因为上传的附件本身就在本机其它文件夹里。

2、想第二次添加附件，想点任意一行的“上传图纸”列的“插入文件”按钮，添加附件，附件倒是加进去了，但这一行的“上传图纸”列显示的文件名变了

是不是不应当用这个“BeforeAttachFile”事件来写啊？

各位狐神有何高招？
下载信息 [文件大小：下载次数： ]
点击浏览该文件:如何增加附件.zip

1、你应该在AfterOpenproject事件中设置DataCol的DefaultFolder属性，指定存储目录，在BeforeAttachFile中指定子目录

2、你没有搞清楚SubFolder这个e参数的意义，SubFolder是用来在存储目录下指定一个子目录，不是一个全路径，不需要包括原来的父路径（存储目录）。

3、建议你做例子的时候，不要用网络路径，局域网的路径和本地路径一样，用本地路径做例子，方便别人测试。

正常的设计思路是：

1、在AfterOpenproject事件中：

DataTables("产品").DataCols("图片").DefaultFolder = "指定的存储路径"

2、BeforeAttachFile事件代码：
Select Case e.DataCol.Name
    Case "Annex"
        e.SubFolder = CurProID
        Dim cs As String = e.DataCol.DefaultFolder   & "\" & CurProID & "\" & e.FileName
        If FileSys.FileExists(cs) = False Then
            Dim dr As DataRow = e.DataTable.AddNew
            dr("Annex") = "\" & CurProID & "\" & e.FileName
            dr("Title") = e.FileName
            FileSys.CopyFile(e.SourceFolder & "\" & e.FileName ,cs ,True )
        End If
End Select

主题：[求助]分项目存储附件