[求助] 上传照片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 上传照片

共有6663人关注过本帖树形打印复制链接主题：[求助] 上传照片

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/13 16:31:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目10.table

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/14 15:05:00 [显示全部帖子]

6楼例子，请填入路径，即可。

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/19 10:24:00 [显示全部帖子]

以下是引用wumingrong1在2017/6/19 10:18:00的发言：

如果我的找照片是存放在某台网络上的服务器上，而不是存放在本机电脑。该怎么办

那你需要搭建一个ftp服务器，代码要改写成ftpclient的才行 http://www.foxtable.com/webhelp/scr/1410.htm

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/19 11:11:00 [显示全部帖子]

1、你写的路径，必须是ftp的路径，如 /abc 、 /abc/xyz 这样的

2、代码这样写

If e.DataCol.name = "路径" Then
    Dim fls1 As String = ""
    Dim ftp1 As New FtpClient
    ftp1.Host="621.233.105.55"
    ftp1.Account = "fox**p"
    ftp1.Password = "HZw***1"
    Dim fls = ftp1.GetFileList(e.newvalue)
    For Each fl As String In fls
        fls1 &= FileSys.GetName(fl) & vbcrlf
    Next
    e.DataRow("图片") = fls1
    e.DataTable.DataCols("图片").FTPClient.RootDir = e.NewValue
End If

有点色

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/19 12:10:00 [显示全部帖子]

Dim t As Table = Tables("表A")
Dim ftp1 As FtpClient = t.Cols("图片").DataCol.FTPClient
Dim fls = ftp1.GetFileList(t.current("路径"))
Dim fls1 As String = ""
For Each fl As String In fls
fls1 &= fl & vbcrlf
Next
t.current("图片") = fls1