Foxtable(狐表)用户栏目专家坐堂 → 多文件管理怎么按用户限制


  共有4303人关注过本帖树形打印复制链接

主题:多文件管理怎么按用户限制

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/10 10:38:00 [显示全部帖子]

以下是引用kaituozhe在2016/6/10 8:11:00的发言:
设置内置文件管理器可否使用3、4楼的代码?

 

写到afterOpenProject事件。或者看看这个例子

 

下载信息  [文件大小:312.0 KB  下载次数:7]
图片点击可在新窗口打开查看点击浏览该文件:动态修改foxtable窗口_例子.table


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/10 19:21:00 [显示全部帖子]

认认真真看9楼啊,看到那个例子。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/10 19:22:00 [显示全部帖子]

如果用10楼的方法,你可以自己做一个窗口,想怎么控制都可以啊。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/11 0:11:00 [显示全部帖子]

 你要去控制 ftpClient 的 rootDir 属性啊

 

 比如

 

Tables("表a").cols("第七列").FileManager.FTPclient.RootDir = "/" & e.DataRow("客户名称") & "/" & e.DataRow("档案类别")


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/11 14:31:00 [显示全部帖子]

以下是引用kaituozhe在2016/6/11 0:23:00的发言:
14楼的代码写在那里?

 

你什么时候要控制,就写到什么事件

[此贴子已经被作者于2016/6/11 14:31:15编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/12 9:23:00 [显示全部帖子]

你这一列 清单存放,列属性那里,要设置成多文件类型,同时填写ftp的账号密码信息。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/13 0:04:00 [显示全部帖子]

If User.Name = "开发者" Then
    If e.DataCol.name = "清单存放" Then
        Tables("资料清单").Cols("清单存放").OpenWindow
        Tables("资料清单").Cols("清单存放").FileManager.FTPclient.RootDir ="/" & e.DataRow("客户名称") & "/" & e.DataRow("档案类别")
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/13 12:02:00 [显示全部帖子]

呃,直接写不就行了?
 
Dim drftp As FTPclient = DataTables("资料清单").dataCols("清单存放").FTPclient

drftp.RootDir ="/"

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/14 10:27:00 [显示全部帖子]

 你说的初始目录指什么指定RootDir不就行了?

 

drftp.RootDir ="/"


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/14 15:06:00 [显示全部帖子]

根目录,就是ftp的最高一层目录了啊,肯定无法再往上查。

 

如果你希望可以往上查,你可以在ftp服务器那里,指定根目录是D盘啊。


 回到顶部
总数 11 1 2 下一页