主题：设置文件管理器的动态位置

文件管理器中，按编号生成了文件夹，本行上传的文件位置就是按编号生成的文件夹，代码怎么改？

Dim TP2 As WinForm.FileManager = e.Form.Controls("FileManager1")
TP2.Remote = False
tp2.FolderName = ProjectPath & "成本分析\" & Tables("表A").current("客户")& "\" & Tables("表A").current("编号")

 

表属性BeforeAddFile创建文件加代码：

If e.DataCol.name = "多文件件" Then
   
    If e.DataRow.IsNull("客户") = False Then
       
        If FileSys.DirectoryExists(ProjectPath & "成本分析\" & e.DataRow("客户")) = False Then '如果目录C:\MyFolder存在
            FileSys.CreateDirectory(ProjectPath & "成本分析\" & e.DataRow("客户"))
            'MessageBox.Show("成本分析\" & e.DataRow("客户"))
        End If
       
        If e.DataRow.IsNull("编号") = False Then
            If FileSys.DirectoryExists(ProjectPath & "成本分析\" & e.DataRow("客户") & "\" & e.DataRow("编号")) = False Then '如果目录C:\MyFolder存在
                FileSys.CreateDirectory(ProjectPath & "成本分析\" & e.DataRow("客户")& "\" & e.DataRow("编号"))
               
            End If
        End If
    End If
e.path = ProjectPath & "成本分析\" & e.DataRow("客户")& "\" & e.DataRow("编号")

End If

 

此主题相关图片如下：111.png


此主题相关图片如下：222.png

就是这些文件管理器中上传的文件，在指定的文件夹中，不统一放在Attachments文件夹中，方便管理查看

你要去设置currentChanged事件

 

If e.Table.Current IsNot Nothing AndAlso Forms("窗口1").opened Then
    Dim TP2 As WinForm.FileManager = forms("窗口1").Controls("FileManager1")
    TP2.Remote = False
    tp2.FolderName = ProjectPath & "成本分析\" & e.Table.current("客户")& "\" & e.Table.current("编号")
End If

老师，我试了，在currentchanged内不行，我放在了datacolchanged中也不行，上传了例子，麻烦帮忙看下谢谢~~

 

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

点击浏览该文件:管理项目1.rar

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

点击浏览该文件:管理项目1.foxdb

前几天的文件动态存储位置，感谢色老师的指点；将代码打开项目后执行动态存储设定的代码；但我是按单据编号和客户编号来生成的文件夹，生选定一行时，动态存储位置就发生着变动 ，于是，我将代码写到表属性-选定行执行中、又写到单元格变动时执行，都试过~~~在文件管理器下面有一排菜单，只有在上传附件时是成功的，但进行删除等其他功能时，表面上看上去也删除了，但实际文件依然会存在文件夹内，就是菜单并没有按动态位置来刷新，不知道该怎么办，求思路，谢谢老师~~

此主题相关图片如下：qq图片20170316144540.png

参考，设置一下就好，e.DeleteLocalFile = True

 

http://www.foxtable.com/webhelp/scr/2716.htm