关于图片浏览器问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于图片浏览器问题

共有5186人关注过本帖树形打印复制链接主题：关于图片浏览器问题

裴保民

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2019/1/3 15:25:00 [显示全部帖子]

文件夹中的图片怎么还有呢？只是删除图片浏览器中的图片了,文件夹中还有

裴保民

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2019/1/3 17:53:00 [显示全部帖子]

还是弹出错误对话框

此主题相关图片如下：错误信息.png

裴保民

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2019/1/3 18:23:00 [显示全部帖子]

Dim path As String = ProjectPath & "照片/客户身份证/"

For Each dr As DataRow In DataTables("客户档案").Select("姓名 is not null")

Dim str As String = dr("姓名")

If dr.isnull("身份证") = False Then

str = str & right(dr("身份证"),6)

End If

For Each file As String In FileSys.GetFiles(path)

Dim name As String = FileSys.GetName(file)

If name.Contains(str) Then

FileSys.CopyFile(file, ProjectPath & "照片\客户身份证/" & name, True)

Dim ls = dr.Lines("身份证照片")

If ls.contains(name) = False Then

ls.Remove(name)

Tables("客户档案").Current.DataRow.Lines("身份证照片") = ls

End If

裴保民

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2019/1/3 21:30:00 [显示全部帖子]

文件夹中的图片根本没删除呢？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:图片操作.rar

[此贴子已经被作者于2019/1/3 21:40:01编辑过]

裴保民

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2019/1/3 21:41:00 [显示全部帖子]

你测试一下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:图片操作.rar

裴保民

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2019/1/3 22:06:00 [显示全部帖子]

怎么把别的客户一起给删除了呢？

裴保民

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2019/1/3 22:26:00 [显示全部帖子]

一个客户好几张照片如果只删除选中的照片，而不是该客户名下的所有照片，怎么实现呢？

裴保民

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2019/1/4 18:47:00 [显示全部帖子]

Dim pv As WinForm.PictureViewer = e.Form.Controls("zhaopianPictureViewer")

Dim fl As String = pv.SelectedItem

Dim Result As DialogResult

result= MessageBox.Show("是否删除此客户所选的照片资料,此操作会连同文件夹内的图片资料一并删除,不可恢复,请谨慎操作!", "提示" ,MessageBoxButtons.YesNo,MessageBoxIcon.Question)

If result = DialogResult.yes Then

If fl > "" Then

pv.DeleteFile(fl)

FileSys.DeleteFile(fl, 2,2)

End If

如果文件夹中没有要删除的文件会弹出错误对话框的！是哪的问题呢？

下一主题 >> << 上一主题

总数 19 上一页 1 2

主题：关于图片浏览器问题