[求助]图片列里的图片名字自动生成 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]图片列里的图片名字自动生成

共有2092人关注过本帖树形打印复制链接主题：[求助]图片列里的图片名字自动生成

有点甜

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

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

Post By：2018/4/25 10:21:00 [显示全部帖子]

参考

有点甜

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

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

Post By：2018/4/25 10:43:00 [显示全部帖子]

以下是引用cool314156在2018/4/25 10:39:00的发言：
如果要加多张图片如何重名

你如果在添加的时候重命名，照着做 http://www.foxtable.com/webhelp/scr/2209.htm

你可以加上编号，如

e.FileName = dr("身份证号码") & ".jpg"

改成

e.FileName = dr("身份证号码") & dr.Lines("图片").count & ".jpg"

[此贴子已经被作者于2018/4/25 10:43:02编辑过]

有点甜

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

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

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

beforeAddFile事件

vars("个数") = e.datarow.Lines("检验报告").count

BeforeAttachFile

Dim dr As DataRow = e.DataRow

If dr.IsNull("编号") Then

MessageBox.Show("编号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

ElseIf vars("个数") = 0 Then

e.FileName = dr("编号") & ".jpg"

ElseIf vars("个数") > 0 Then

e.FileName = dr("编号") & "-" & vars("个数") & ".jpg"

End If

vars("个数") += 1

主题：[求助]图片列里的图片名字自动生成