主题：上传带文件夹的图片

参考

 

http://www.foxtable.com/help/topics/1410.htm

 

 那里有教你怎么新建文件夹，以及指定上传到哪个文件夹。

上传文件夹，也可以这样写

 

ftp1.UploadDirectory("d:\test", False)

比如

 

Dim ftp1 As New FtpClient
ftp1.Host="021.66ip.net"
ftp1.Account = "byftpuser"
ftp1.Password = "654321"
Dim r As Row = Tables("表A").current
Dim f As String = "c:"& r("第八列")
Dim sf As String =  r("第八列")

If  ftp1.Upload(f,sf) = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 

如果，对应路径不存在，你还要在ftp上新建对应的文件夹

看懂代码啊

 

Dim ftp1 As New FtpClient
ftp1.Host="021.66ip.net"
ftp1.Account = "byftpuser"
ftp1.Password = "654321"
Dim r As Row = Tables("表A").current
Dim f As String = "d:\test.jpg"
Dim sf As String =  "/A/test.jpg"

If  ftp1.Upload(f,sf) = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 

执行，报什么错？

只会显示你上次成功的图片。只要你上传了图片，路径正确，肯定能显示的。

Dim ftp1 As New FtpClient
ftp1.Host="021.6.net"
ftp1.Account = "user"
ftp1.Password = "654321"
Dim r As Row = Tables("表A").current
Dim l As String = "/A/"& r("第四列")
Dim f As String = "c:"& r("第八列")
Dim f1 As String = "c:"& r("第九列")
Dim f2 As String = "c:"& r("第十列")
Dim sf As String =  r("第八列")
Dim sf1 As String = r("第九列")
Dim sf2 As String = r("第十列")
msgbox("c:/A/"& r("第四列"))
If FileSys.DirectoryExists("c:/A/"& r("第四列") ) Then '如果指定的文件目录存在
    If  ftp1.DirExists("/A/"&("第四列") )  Then
        Messagebox.Show("FTP文件目录已经存在!","提示")
    Else
        If ftp1.MakeDir(l) Then
            Messagebox.Show("创建目录成功!")
            If  ftp1.Upload(f,sf) = True And ftp1.Upload(f1,sf1) = True And ftp1.Upload(f2,sf2) = True Then
                Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Else
                Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            End If
            If DataTables("表A").HasChanges Then
                DataTables("表A").Save
            End If
        Else
            msgbox("创建目录失败")
        End If
    End If
Else
    Messagebox.Show("源文件目录不存在!","提示")
End If

 把当前行切换到上一行，再切换回来就能显示。

 

 或者是，设置绑定列为nothing，然后再设置绑定列是对应的表列

 

http://www.foxtable.com/help/topics/1860.htm

 

 

试试执行代码

 

Dim p1 As WinForm.PictureBox = e.Form.Controls("PictureBox1")
Dim p2 As WinForm.PictureBox = e.Form.Controls("PictureBox2")
Dim p3 As WinForm.PictureBox = e.Form.Controls("PictureBox3")

Dim tp1 As String = p1.BindingField
Dim tp2 As String = p2.BindingField
Dim tp3 As String = p3.BindingField

p1.BindingField = Nothing
p2.BindingField = Nothing
p3.BindingField = Nothing

p1.BindingField = tp1
p2.BindingField = tp2
p3.BindingField = tp3