以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]图片列里的图片名字自动生成  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118100)
--  作者：cool314156
--  发布时间：2018/4/25 10:09:00
--  [求助]图片列里的图片名字自动生成
我想根据编号列自动将图片列里的图片名字改成对应的编号，求教下说明书需要看哪些页的内容
--  作者：有点甜
--  发布时间：2018/4/25 10:21:00
--  

参考

 

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

 

如果要给文件重命名，参考 http://www.foxtable.com/webhelp/scr/0340.htm

 
--  作者：cool314156
--  发布时间：2018/4/25 10:39:00
--  
如果要加多张图片如何重名
--  作者：有点甜
--  发布时间：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
--  发布时间：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
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：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