Foxtable(狐表)用户栏目专家坐堂 → FTP管理,通过列窗口可以正常进入,通过数据行的命令按钮无法进入?


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

主题:FTP管理,通过列窗口可以正常进入,通过数据行的命令按钮无法进入?

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


加好友 发短信
等级:一尾狐 帖子:480 积分:4371 威望:0 精华:0 注册:2014/1/16 16:55:00
FTP管理,通过列窗口可以正常进入,通过数据行的命令按钮无法进入?  发帖心情 Post By:2022/11/8 11:17:00 [只看该作者]

FTP管理,通过列窗口可以正常进入,通过数据行的命令按钮无法进入?
请问需要做如何的设置?
因为每一行对应的根目录不一样?

' CurrentChanged

' 选择不同数据行后执行,也就是Current属性发生变化后执行。


If e.Table.Current Is Nothing Then ' 如果Current为Nothing
    Return ' 则返回
End If

Dim ftp As New FTPClient
ftp.host = "8.136.146.239"
ftp.Account = "administrator"
ftp.password = "****"
e.Table.ColS("附件").FileManager.FTPclient = Ftp
e.Table.ColS("附件").FileManager.FTPclient.RootDir = e.Table.Current("Bill_Num")  '每一行对应不同的根目录

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

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

图片点击可在新窗口打开查看
[此贴子已经被作者于2022/11/8 11:19:48编辑过]

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


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

试试

If e.Table.Current Is Nothing Then ' 如果Current为Nothing
    Return ' 则返回
End If

Dim ftp As New FTPClient
ftp.host = "8.136.146.239"
ftp.Account = "administrator"
ftp.password = "****"
ftp.RootDir = e.Table.Current("Bill_Num")
e.Table.ColS("附件").FileManager.FTPclient = Ftp

e.Table.DataTable.DataCols("附件").FTPClient.host = "8.136.146.239"
e.Table.DataTable.DataCols("附件").FTPClient.Account = "administrator"
e.Table.DataTable.DataCols("附件").FTPClient.password = "****"
e.Table.DataTable.DataCols("附件").FTPClient.RootDir = e.Table.Current("Bill_Num")

 回到顶部