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


  共有2075人关注过本帖树形打印复制链接

主题：[求助]图片列里的图片名字自动生成
帅哥哟，离线，有人找我吗？
cool314156
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：374 积分：3277 威望：0 精华：0 注册：2018/1/12 10:54:00 		[求助]图片列里的图片名字自动生成  发帖心情 Post By：2018/4/25 10:09:00 [只看该作者]

我想根据编号列自动将图片列里的图片名字改成对应的编号，求教下说明书需要看哪些页的内容
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/25 10:21:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
cool314156
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：374 积分：3277 威望：0 精华：0 注册：2018/1/12 10:54:00 		  发帖心情 Post By：2018/4/25 10:39:00 [只看该作者]

如果要加多张图片如何重名
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cool314156
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：374 积分：3277 威望：0 精华：0 注册：2018/1/12 10:54:00 		  发帖心情 Post By：2018/4/25 11:20:00 [只看该作者]

Dim dr As DataRow = e.DataRow
If dr.IsNull("编号")  Then
    MessageBox.Show("编号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
ElseIf  dr.Lines("检验报告").count = 0 Then
    e.FileName = dr("编号")  & ".jpg"
ElseIf  dr.Lines("检验报告").count > 0 Then
    e.FileName = dr("编号") & "-" & dr.Lines("检验报告").count & ".jpg"
End If
谢谢指点，我用上面的代码解决了
 回到顶部
帅哥哟，离线，有人找我吗？
witkeylaw
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：235 积分：2358 威望：0 精华：0 注册：2011/6/19 0:05:00 		  发帖心情 Post By：2018/4/26 23:32:00 [只看该作者]

这个代码只能每次选择一个文件，如果选择多个的话，会重复。

编号1.jpg
编号1-1.jpg
编号1-2.jpg
编号1-3.jpg
编号1-4.jpg
编号1-5.jpg
编号1-6.jpg
编号1-6.jpg
[此贴子已经被作者于2018/4/26 23:33:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询