专家坐堂-如何将窗口中的图片控件与FTP保持文件保持更新状态？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")

Dim t As Table = Tables("春蕾主表")

Dim dlg As new OpenFileDialog

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

Dim FT As NEW FTPClient

FT.Host = "192.168.1.102"

FT.Account = "foxuser"

FT.Password = "1"

Dim st As String = dlg.FileName.SubString(dlg.FileName.LastIndexOf("\\")+1) \'获取无路径的文件名

Dim ftype As String = st.SubString(st.LastIndexOf("."))

ft.Upload(dlg.FileName,"//" & t.Current("身份证号") & t.Current("儿童姓名") & ftype)

ft.Close

T.Current("照片") = "//" & t.Current("身份证号") & t.Current("儿童姓名") & ftype

End If