以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么在窗体模式下打开文件型列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148467)

--  作者:ifox2018
--  发布时间:2020/4/8 15:16:00
--  怎么在窗体模式下打开文件型列
在窗体上放了个TABLE控件。  想要能打开该行文件列内的文件(目前仅为word单文件)。 该如何处理
--  作者:有点蓝
--  发布时间:2020/4/8 16:07:00
--  
比如表事件双击事件

If e.Col.Name = "文件" AndAlso e.Row.Isnull("文件") = False Then
    Dim Proc As New Process \'定义一个新的Process
    Proc.File = ProjectPath & "Attachments\\" & e.Row("文件") \'指定要打开的文件
    Proc.Start()
End If

--  作者:ifox2018
--  发布时间:2020/4/8 16:27:00
--  
文件是存放在FTP上的。  第三行代码需要如何修改?
--  作者:有点蓝
--  发布时间:2020/4/8 17:26:00
--  
先下载文件到指定目录:http://www.foxtable.com/webhelp/topics/1410.htm
然后再打开

--  作者:ifox2018
--  发布时间:2020/4/10 14:23:00
--  
在窗体用各种控件连接FTP使用一切正常。
用代码连接,一直提示连接失败。
Dim ftp1 As new ftpclient
ftp1.host="196.128.1.30"
ftp1.Account = "file"
ftp1.password = "file"
ftp1.UTF8 = True
If ftp1.Connected = False \'如果FTP没有连接
    If ftp1.Connect Then \'连接FTP
           Messagebox.show("连接FTP OK!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("连接FTP失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

--  作者:有点蓝
--  发布时间:2020/4/10 14:39:00
--  
测试提示什么错误?
Dim ftp1 As new ftpclient
ftp1.host="196.128.1.30"
ftp1.Account = "file"
ftp1.password = "file"
ftp1.OpenManager

--  作者:ifox2018
--  发布时间:2020/4/10 16:29:00
--  
一直提示:
[16:26:03] 正在连接服务器
[16:26:24] 连接服务器失败,
这两行内容

但是用文件管理器,图片浏览器这种控件,正常

--  作者:有点蓝
--  发布时间:2020/4/10 16:34:00
--  
肯定ftpclient的设置和列属性设置不一样