Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何修改文件管理器的根目录


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

主题：如何修改文件管理器的根目录
帅哥哟，离线，有人找我吗？
9EQ98
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：521 积分：4784 威望：0 精华：0 注册：2014/1/16 16:55:00 		如何修改文件管理器的根目录  发帖心情 Post By：2022/11/11 3:46:00 [只看该作者]

因为每一行数据对应FTP服务器上对应的目录
请问：如何修改 窗口中 文件管理器 的根目录
用代码修改不生效

Dim 文件01 As WinForm.FileManager = e.Form.Controls("文件01")
文件01.CommandVisible = True
文件01.FTPclient.Host = "8.136.146.235"
文件01.FTPclient.Account = "administrator"
文件01.FTPclient.Password = "*****"
文件01.FTPclient.RootDir = "/ZTCY/YPJH/" & e.Form.Controls("单据编号").Value

设置后，点击 增加 按钮 还是停留在 上一条记录对应的目录
 回到顶部
帅哥哟，离线，有人找我吗？
9EQ98
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：521 积分：4784 威望：0 精华：0 注册：2014/1/16 16:55:00 		  发帖心情 Post By：2022/11/11 3:51:00 [只看该作者]

Dim 文件01 As WinForm.FileManager = e.Form.Controls("文件01")
文件01.CommandVisible = False
Dim ftp As New FTPClient
ftp.host = "8.136.146.235"
ftp.Account = "administrator"
ftp.password = "*******"
ftp.RootDir = "/ZTCY/YPJH/" & e.Form.Controls("单据编号").Value
文件01.FTPclient = ftp
'文件01.FTPclient.RootDir = "/ZTCY/YPJH/" & e.Form.Controls("单据编号").Value

文件01.CommandVisible = True


这种方式也偿试了，到不了指定的新目录
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110788 积分：563872 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/11 8:24:00 [只看该作者]

要同步更改列属性的设置：http://www.foxtable.com/webhelp/topics/1477.htm

Dim 文件01 As WinForm.FileManager = e.Form.Controls("文件01")
文件01.CommandVisible = False
Dim ftp As New FTPClient
ftp.host = "8.136.146.235"
ftp.Account = "administrator"
ftp.password = "*******"
ftp.RootDir = "/ZTCY/YPJH/" & e.Form.Controls("单据编号").Value
文件01.FTPclient = ftp

DataTables("表名").DataCols("列名").FTPClient.Host = "8.136.146.235"
DataTables("表名").DataCols("列名").FTPClient.Account = "administrator"
DataTables("表名").DataCols("列名").FTPClient.password = "*******"
DataTables("表名").DataCols("列名").FTPClient.RootDir = "/ZTCY/YPJH/" & e.Form.Controls("单据编号").Value
 回到顶部
帅哥哟，离线，有人找我吗？
9EQ98
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：521 积分：4784 威望：0 精华：0 注册：2014/1/16 16:55:00 		  发帖心情 Post By：2022/11/11 9:31:00 [只看该作者]


Dim 文件01 As WinForm.FileManager = e.Form.Controls("文件01")
文件01.CommandVisible = True

Dim ftp As New FTPClient
ftp.host = "8.136.146.235"
ftp.Account = "administrator"
ftp.password = "*****"
ftp.RootDir = "/ZTCY/YPJH/" & e.Form.Controls("单据编号").Value
文件01.FTPclient = FTP

'DataTables("表名").DataCols("列名").FTPClient = ftp

DataTables("样品计划明细").DataCols("附件").FTPClient.Host = "8.136.146.235"
DataTables("样品计划明细").DataCols("附件").FTPClient.Account = "administrator"
DataTables("样品计划明细").DataCols("附件").FTPClient.password = "*******"
DataTables("样品计划明细").DataCols("附件").FTPClient.RootDir = "/ZTCY/YPJH/" & e.Form.Controls("单据编号").Value
''文件01.FTPclient.RootDir = "/ZTCY/YPJH/"

图片点击可在新窗口打开查看

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110788 积分：563872 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/11 9:39:00 [只看该作者]

请上传实例说明

 回到顶部
帅哥哟，离线，有人找我吗？
9EQ98
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：521 积分：4784 威望：0 精华：0 注册：2014/1/16 16:55:00 		  发帖心情 Post By：2022/11/11 10:52:00 [只看该作者]

上传实例
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:ftptest_202211111049.zip

[此贴子已经被作者于2022/11/11 10:52:48编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
9EQ98
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：521 积分：4784 威望：0 精华：0 注册：2014/1/16 16:55:00 		  发帖心情 Post By：2022/11/12 22:40:00 [只看该作者]

请问有具体解决方案了吗？
或者如何释放(清除)窗口控件的FTP属性参数，重新建立（指定）
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110788 积分：563872 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/13 19:50:00 [只看该作者]

是一个bug，已反馈

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询