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

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

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

裴保民

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

加好友

发短信

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

Post By：2019/1/3 22:06:00 [只看该作者]

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/3 22:18:00 [只看该作者]

Dim path As String = ProjectPath & "照片/"
msgbox(path)
Dim dr = Tables("客户档案").current
Dim str1 As String = dr("姓名")
Dim str2 As String = ""
If dr.isnull("身份证") = False Then
    str2 = str2 & right(dr("身份证"),6)
End If
dr("身份证照片") = Nothing
For Each file As String In FileSys.GetFiles(path)
    Dim name As String = FileSys.GetName(file)
    If name.Contains(str1) AndAlso name.Contains(str2) Then
        FileSys.CopyFile(file, ProjectPath & "照片\客户身份证/" & name, True)
        msgbox(file)
        FileSys.DeleteFile(file, 2, 2)
    End If
Next

裴保民

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

加好友

发短信

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

Post By：2019/1/3 22:26:00 [只看该作者]

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/3 22:40:00 [只看该作者]

以下是引用裴保民在2019/1/3 22:26:00的发言：
一个客户好几张照片如果只删除选中的照片，而不是该客户名下的所有照片，怎么实现呢？

Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer")
Dim fl As String = pv.SelectedItem
If fl > "" Then
pv.DeleteFile(fl)
FileSys.DeleteFile(fl, 2,2)
End If