Foxtable(狐表)用户栏目专家坐堂 → [求助]删除图片


  共有2051人关注过本帖树形打印复制链接

主题:[求助]删除图片

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106732 积分:542855 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/30 8:42:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106732 积分:542855 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/30 9:14:00 [显示全部帖子]

你要有一个列保存文件名称,否则无法知道删除哪个文件

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106732 积分:542855 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/30 10:18:00 [显示全部帖子]

Tables("通讯录").Current(“图片存储) = 某某文件名

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106732 积分:542855 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/30 11:37:00 [显示全部帖子]

就扶你!

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106732 积分:542855 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/30 13:41:00 [显示全部帖子]

这种错误要是都看不出来,您来扶我吧!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106732 积分:542855 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/30 16:10:00 [显示全部帖子]


 回到顶部