以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]上传图片问题？？？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51689)
--  作者：shenhq
--  发布时间：2014/5/31 16:53:00
--  [求助]上传图片问题？？？

研究了几天FTP上传图片问题，论坛上没有理想答案。大师们的回答言简意赅，我等小白理解很费劲。

 

问题：我想在窗口上放一个“上传图片按钮"，一个Table，

想实现：点击“上传图片按钮”，能将图片位置保存至Table的当前行的图片列（文件列）

请大师们明示。
--  作者：ndxfke
--  发布时间：2014/5/31 17:02:00
--  

顶，

 

有同感。。
--  作者：狐狸爸爸
--  发布时间：2014/6/3 8:45:00
--  

参考：
http://www.foxtable.com/help/topics/1410.htm


 
帮助有这样的代码：
 
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Upload("c:\\data\\Desert.jpg","\\update\\Desert.jpg") = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
 
稍微改一下：
 
 
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
dim fl as string = Tables("表名").Current("列名")
If ftp1.Upload(ProjectPath & "Attachments\\" & fl.,"\\ftp目标路径\\" & fl) = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If