以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何修改文件管理器的根目录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=183644)
--  作者：9EQ98
--  发布时间：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
--  发布时间：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


这种方式也偿试了，到不了指定的新目录
--  作者：有点蓝
--  发布时间：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
--  发布时间：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/"

图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2022/11/11 9:39:00
--  
请上传实例说明
--  作者：9EQ98
--  发布时间：2022/11/11 10:52:00
--  
上传实例
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:ftptest_202211111049.zip

[此贴子已经被作者于2022/11/11 10:52:48编辑过]
--  作者：9EQ98
--  发布时间：2022/11/12 22:40:00
--  
请问有具体解决方案了吗？
或者如何释放(清除)窗口控件的FTP属性参数，重新建立（指定）
--  作者：有点蓝
--  发布时间：2022/11/13 19:50:00
--  
是一个bug，已反馈