以下是一个按钮命令:
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim ftp1 As New FtpClient
ftp1.Host="47.91.11.151"
ftp1.Account = "ftpuser"
ftp1.Password = "ftp@163"
ftp1.RootDir = _xmml & "/" & t1.Value
ftp1.OpenManager()
Dim ftp2 As New FtpClient
ftp2.Host="47.91.11.151"
ftp2.Account = "ftpuser"
ftp2.Password = "ftp@163"
ftp2.RootDir = _xmml & "/附件区"
ftp2.OpenManager()
Dim fm1 As WinForm.FileManager = e.Form.Controls("FileManager1")
Dim fm2 As WinForm.FileManager = e.Form.Controls("FileManager2")
fm1.FTPclient = ftp1
fm2.FTPclient = ftp2
DataTables("文档表").DataCols("主文档").Remote = True
DataTables("文档表").DataCols("主文档").FTPClient.FTPName= "ftp1"
DataTables("文档表").DataCols("附件").Remote = True
DataTables("文档表").DataCols("附件").FTPClient.FTPName= "ftp2"
最后这段代码执行后,点单元格按钮,连接不上去,请教原因。
[此贴子已经被作者于2019/7/28 21:39:07编辑过]