老师好
If dlg.ShowDialog = DialogResult.OK Then
dr.SQLInsertFile("个人电子信息_照片",dlg.FileName) '插入文件
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image = GetImage(dlg.FileName)
FileSys.CopyFile(dlg.FileName, "H:\蓝峰\Attachments\管理\图片\证件照\" & FileSys.GetName(dlg.fileName),True)
Tables("通讯录").Current("证件照") = FileSys.GetName(dlg.fileName)
End If
上面是添加图片和赋值图片名称，下面如何根据图片名称彻底删除图片。谢谢老师。
If Tables("通讯录").Current IsNot Nothing Then
Tables("通讯录").Current.DataRow.SQLSetValue("个人电子信息_照片",Nothing) '从后台删除照片列内容
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image = Nothing
End If
加好友 
发短信
Post By：2019/11/30 13:41:00 [只看该作者]
