[求助]文件名称自动更改和自动编号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]文件名称自动更改和自动编号

共有3470人关注过本帖树形打印复制链接主题：[求助]文件名称自动更改和自动编号

sjx71

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

加好友

发短信

等级：一尾狐帖子：469 积分：4545 威望：0 精华：0 注册：2013/5/22 15:32:00

[求助]文件名称自动更改和自动编号 发帖心情

Post By：2014/7/17 13:09:00 [只看该作者]

在照片列增加照片，照片可以存在动态设置的文件夹内，文件名可以改为小区+（住址）+日期+"-01.jpg"

但同一单元格内增加第二张照片时，就需要手动更改文件名为。。。+"-02.jpg"

我想用 filesys.getname filesys.getfiles SpecialFolder 等几个方法组合实现自动编号，但一直未实现。

请教各位老师，如何实现自动编号

谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:文件名称自动编号.foxdb

有点甜

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

加好友

发短信

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

Post By：2014/7/17 14:24:00 [只看该作者]

Dim ext As String
ext = e.FileName.SubString(e.FileName.LastIndexof(".") + 1)
Select Case e.DataCol.Name
    Case "照片"
        If ext = "jpg" Then
            Dim path1 As String   = e.DataRow("安检日期").year & "\" & e.DataRow("小区") & "\" & e.DataRow("住址")
            e.SubFolder = path1
            e.filename = e.DataRow("小区") & "(" & e.DataRow("住址") & ")" & Format(e.DataRow("安检日期"),"yyyyMMdd")
            Dim count As Integer = 1
            If FileSys.DirectoryExists(ProjectPath & "Attachments\" & path1) Then
                For Each file As String In FileSys.GetFiles(ProjectPath & "Attachments\" & path1)
                    If file Like "*" & e.FileName & "*" Then
                        count += 1
                    End If
                Next
            End If
            e.FileName &= "-" & Format(count, "00") & ".jpg"
        Else
            MessageBox.Show("此列只能插入jpg文件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
            e.Cancel = True
        End If
End Select

sjx71

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

加好友

发短信

等级：一尾狐帖子：469 积分：4545 威望：0 精华：0 注册：2013/5/22 15:32:00

Post By：2014/7/17 22:35:00 [只看该作者]

多谢老师

方丈

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

加好友

发短信

等级：四尾狐帖子：803 积分：10727 威望：0 精华：1 注册：2008/9/2 18:58:00

Post By：2014/10/1 15:14:00 [只看该作者]

记号

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

主题：[求助]文件名称自动更改和自动编号