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

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

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

有点甜

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

加好友

发短信

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

Post By：2018/12/28 9:59:00 [显示全部帖子]

1、http://www.foxtable.com/webhelp/scr/2286.htm

2、把属性【自动删除附件】设置成true

有点甜

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

加好友

发短信

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

Post By：2018/12/28 10:11:00 [显示全部帖子]

1、http://www.foxtable.com/webhelp/scr/2286.htm

2、把属性【自动删除附件】设置成true

有点甜

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

加好友

发短信

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

Post By：2018/12/28 10:12:00 [显示全部帖子]

以下是引用裴保民在2018/12/28 10:08:00的发言：
怎么删除选定的照片连同文件夹里的一起删除

不然自己看看

http://www.foxtable.com/webhelp/scr/2716.htm

http://www.foxtable.com/webhelp/scr/0331.htm

有点甜

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

加好友

发短信

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

Post By：2019/1/2 12:38:00 [显示全部帖子]

在 BeforeDeleteFile 事件，写代码删除文件啊。

不会做，请上传具体实例说明。

有点甜

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

加好友

发短信

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

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

1、请说明如何测试。

2、把属性【自动删除附件】设置成true啊

有点甜

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

加好友

发短信

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

Post By：2019/1/2 21:41: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

比如

FileSys.DeleteFile(ProjectPath & " /照片/刘艺ss2GTHYJD564663-经营场所1.png", 2, 2)

有点甜

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

加好友

发短信

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

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

以下是引用裴保民在2019/1/2 21:53:00的发言：

单击清除图片按钮清除该条信息名下的所有图片（包括文件夹内的图片文件）怎么循环删除呢？

单击删除图片则删除所选择的图片（包括文件夹内的图片文件）要删除的文件名怎么获取呢？

参考 http://www.foxtable.com/webhelp/scr/2717.htm

有点甜

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

加好友

发短信

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

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

参考

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
    For Each dr As DataRow In DataTables("客户档案").Select("姓名 is not null")
        Dim str1 As String = dr("姓名")
        Dim str2 As String = ""
        If dr.isnull("身份证") = False Then
            str2 = str2 & right(dr("身份证"),6)
        End If
        For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
            Dim name As String = FileSys.GetName(file)
            If name.Contains(str1) AndAlso name.Contains(str2) Then
                FileSys.CopyFile(file, ProjectPath & "照片\客户身份证/" & name, True)
                FileSys.DeleteFile(file, 2, 2)
                dr("身份证照片") = Nothing
            End If
        Next
    Next
End If

有点甜

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

加好友

发短信

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

Post By：2019/1/3 9:51: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
        End If
    Next
Next

有点甜

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

加好友

发短信

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

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

Dim path As String = ProjectPath & "照片/"
For Each dr As DataRow In DataTables("客户档案").Select("姓名 is not null")
    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)
            FileSys.DeleteFile(file, 2, 2)
        End If
    Next
Next

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

总数 18 1 2 下一页

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