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

局域网使用。管理多个项目，需要上传附件，但每个项目都有月报告，月份肯定有重名的。如何在上传附件时：1.在attachments下增加项目子目录，把这个项目的附件放到这个项目下？2.上传附件时，自动读取附件名，放到名称列，3.限制一行只能上传一个附件

http://www.foxtable.com/help/topics/2209.htm

如果一次添加多个附件，如何解析成一个个的，分别增加成各自的行呢？

BeforeAttachFile 事件每个都会触发一次的

我是想在表中每个附件占一行

一次上传多个，每个一行显示。

遍历选中的文件,添加行

1、自己做个增加文件的按钮：
 
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    For Each fl As String In dlg.FileNames
          Dim dr as Datarow = dataTables("表名").AddNew()
           dr("列名") = FileSys.GetName(fl)
    Next
End If
 
2、或者这样编写BeforeattatchFile:
 
 
Select Case e.DataCol.Name
    Case "图片" '如果在图片列插入文件
       if e.datarow.Isnull("图片") = False then '如果原来有文件
           e.cance =true
           dim dr as datarow = e.datatable.AddNew()
           dr("图片") = e.FileName
       end if
End Select

大概如此，细节自己调整

试了哈，貌似有点问题，详见表事件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:关于上传附件的问题.rar

没有复制，你e.Cancel了，文件不会自动添加到目标文件夹，需要用代码复制过去：
 
Select Case e.DataCol.Name
    Case "UploadAnnex"
        If e.DataRow.IsNull("UploadAnnex") = False Then '如果上传附件列不为空,表示这一行有数据
            e.Cancel = True
            e.SubFolder = StoreFile & "\" & PID '设置存放附件路径,它在共享文件夹里
            Dim cs As String = StoreFile  & "\" & PID  & "\" & e.FileName
            If FileSys.FileExists(cs) = False  Then '如果服务器不存在这个文件
                Dim dr As DataRow = e.DataTable.AddNew
                dr("UploadAnnex") = e.FileName  
                dr("Title") = e.FileName
                Filesys.CopyFile(e.SourceFolder & e.FileName ,cs,True)　'复制文件
            End If
        End If
End Select