你做一个上传窗口，放入pictruebox控件，选择你的本机文件后，先显示到图片控件里面。

http://www.foxtable.com/webhelp/scr/0328.htm

http://www.foxtable.com/webhelp/scr/1410.htm

pbx.ImageFile = "c:\\data\\玫瑰.png"

改成

pbx.ImageFile = dlg.FileName

老师，麻烦看看保存按钮代码有什么问题，没上传成功？

Dim dlg As New openFileDialog \'定义一个新的SaveFileDialog
Dim ftp1 As new  ftpclient
ftp1.host="***.*.**.***"
ftp1.Account = "ft***5"
ftp1.password = "1*****"
Dim r As Row = Tables("账号密码").Current
For Each f As String In dlg.FileNames
    Dim file = "/" & r("姓名") & "/" & filesys.GetName(f)
    If ftp1.DirExists("/" & r("姓名")) = False Then
        ftp1.MakeDir("/" & r("姓名"))
    End If
    If  ftp1.Upload(f,file,True) = True Then
        r("头像")=file
    Else
        MessageBox.Show( f & "更换失败,请重新选择文件!" ,"提示" ,MessageBoxButtons.OK,MessageBoxIcon.Question)
    End If
Next
ftp1.Close
e.Form.Close

你选择了图片、文件之后，你需要把dlg.FileNames的值用一个变量或者一个控件存放起来的。如

vars("files") = dlg.filenames

你点保存的时候，直接去获取变量的值。

老师，我保存按钮如下：上传成功了，路径没有添加到了表中，但是重新打开程序，路径又有了，是怎么回事呢

Dim ftp1 As new  ftpclient
ftp1.host="120.00.****.*"
ftp1.Account = "ftp"
ftp1.password = "******"
\'Dim dr As Row = Tables("账号密码").Current
Dim r As DataRow= DataTables("账号密码").sqlFind("姓名 = \'" & _UserXingMing & "\'")
For Each f As String In vars("files")
    Dim file = "/" & r("姓名") & "/" & filesys.GetName(f)
    If ftp1.DirExists("/" & r("姓名")) = False Then
        ftp1.MakeDir("/" & r("姓名"))
    End If
    If  ftp1.Upload(f,file,True) = True Then
        r("头像")=file
        r.save
    Else
        MessageBox.Show( f & "更换失败,请重新选择文件!" ,"提示" ,MessageBoxButtons.OK,MessageBoxIcon.Question)
    End If
Next
ftp1.Close
e.Form.Close

你用的是sqlfind查找的行，保存是直接保存在数据库里面的，不会显示到前台的。

你可以重新加载数据显示到前台。

老师，麻烦再看看这个，我动态生成的Pic绑定到了对应的列，我第一次登陆系统，显示的不是自己的头像是怎么回事呢？

Dim pal1 As WinForm.Panel
pal1 =frm.CreateControl("Panel1",ControlTypeEnum.Panel)
pal1.dock = 1  \'锚定
pal1.Height= 150 \'页面高度
frm.AddControl(pal1)  \'增加Panel
\'pal1.BackColor = Color.Red  \'背景色
Dim pic As WinForm.PictureBox
pic = e.Form.CreateControl("PictureBox1", ControlTypeEnum.PictureBox)
pic.SetBounds(50, 5, 50, 70)  \'(x, y, Width, Height)
e.Form.Controls("Panel1").AddControl(pic)
pic.BindingField = "账号密码.头像"
pic.SizeMode = ImageSizeMode.Zoom  \'头像缩放方式
Dim piv As WinForm.PictureBox = e.Form.Controls("PictureBox1")
Dim ftp As New FTPClient
ftp.host="000.0.0.0.0"
ftp.Account = "ft"
ftp.password = "19"
piv.FTPclient = ftp

我进了系统后，重新登录又是对的。