主题：关于FTP图片

 自动填入图片框是什么意思？在图片框显示图片？

上传参考

 

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim ftp1 As New FtpClient
    ftp1.Host="127.0.0.1"
    ftp1.Account = "test"
    ftp1.Password = "test"
   
    If ftp1.Upload(dlg.FileName, "/" & FileSys.GetName(dlg.FileName)) = True Then
        Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
    ftp1.close
End If

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim ftp1 As New FtpClient
    ftp1.Host="127.0.0.1"
    ftp1.Account = "test"
    ftp1.Password = "test"
   
    If ftp1.Upload(dlg.FileName, "/" & FileSys.GetName(dlg.FileName)) = True Then

        Tables("表A").Current("图片1") &= IIF(Tables("表A").Current.IsNull("图片1"), "", vbcrlf) & "/" & FileSys.GetName(dlg.FileName)
        Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
    ftp1.close
End If