主题：[求助] 上传照片

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

 

 

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

 

研究半天， 不得要领。是不是这样？

 

If e.DataCol.name = "路径" Then
    e.DataTable.DataCols("图片").DefaultFolder = e.NewValue
   
    Dim fls1 As String = ""
    Dim ftp1 As New FtpClient
    Dim fls As List(of String)
    ftp1.Host="621.233.105.55"
    ftp1.Account = "fox**p"
    ftp1.Password = "HZw***1"
    fls = ftp1.GetFileList("/foxftp/")
    For Each fl As String In fls
               fls1 &= fl & vbcrlf
        e.DataRow("图片") = fls1
    Next

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

 

如果我的路径是别的软件填写进去的，我需要在选择每一行的时候；有一个按钮能够点击该按钮后、加载当前行【路径】下的照片名称到【照片】列里。以上命令该怎么修改成按钮公式？

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

下图为 服务器上 FTP的根目录 【foxftp】下面有一个专门存放【弱光整治照片】的子目录【renovate】；所有的照片按照【弱光整治照片】列中的路径进行存储。

 

此主题相关图片如下：360截图20170619155602806.jpg

 

我在读取【照片】数据时，将照片路径拼接成：/foxftp/&"renovate/"&'"&e.DataRow("弱光整治照片")&"'  但是数据没有读取成功；是不是我的拼接路径没拼接对?

此主题相关图片如下：360截图20170620170512201.jpg

 不能直接在属性里设置动态的路径。

 

 你只能在DataColChanged事件、CurrentChanged事件，AfterLoad事件，才能设置其根目录

 

 

此主题相关图片如下：360截图20170620180234451.jpg


此主题相关图片如下：360截图20170620180600932.jpg

 不用设置。窗口AfterLoad事件设置ftpClient的各种信息。