- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- FTP管理,通过列窗口可以正常进入,通过数据行的命令按钮无法进入? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183519)
-- 发布时间：2022/11/8 11:17:00
-- FTP管理,通过列窗口可以正常进入,通过数据行的命令按钮无法进入?
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编辑过]
-- 发布时间：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")