Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
Dim t As Table = Tables("春蕾主表")
Dim dlg As new OpenFileDialog
dlg.Filter= "JGP文件|*.jpg|BMP文件|*.bmp|GIF文件|*.gif|JEPG文件|*.jepg" '设置筛选器
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
[此贴子已经被作者于2017/9/30 11:40:46编辑过]
加好友 
发短信
Post By：2017/9/30 9:31:00 [显示全部帖子]
