- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 设置文件管理器的动态位置 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95191)
-- 发布时间：2017/1/12 17:02:00
-- 设置文件管理器的动态位置
文件管理器中，按编号生成了文件夹，本行上传的文件位置就是按编号生成的文件夹，代码怎么改？
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
-- 发布时间：2017/1/12 17:03:00
--
就是这些文件管理器中上传的文件，在指定的文件夹中，不统一放在Attachments文件夹中，方便管理查看
-- 发布时间：2017/1/12 17:07:00
--
你要去设置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
-- 发布时间：2017/1/13 10:51:00
--
你要去设置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中也不行，上传了例子，麻烦帮忙看下谢谢~~
-- 发布时间：2017/1/13 10:52:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2017/1/13 11:30:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2017/3/16 14:44:00
--
前几天的文件动态存储位置，感谢色老师的指点；将代码打开项目后执行动态存储设定的代码；但我是按单据编号和客户编号来生成的文件夹，生选定一行时，动态存储位置就发生着变动 ，于是，我将代码写到表属性-选定行执行中、又写到单元格变动时执行，都试过~~~在文件管理器下面有一排菜单，只有在上传附件时是成功的，但进行删除等其他功能时，表面上看上去也删除了，但实际文件依然会存在文件夹内，就是菜单并没有按动态位置来刷新，不知道该怎么办，求思路，谢谢老师~~
-- 发布时间：2017/3/16 14:47:00
--
此主题相关图片如下：qq图片20170316144540.png
-- 发布时间：2017/3/16 15:35:00
--
参考，设置一下就好，e.DeleteLocalFile = True
http://www.foxtable.com/webhelp/scr/2716.htm