Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]在增加图片列：扫描件列时，批量增加图片时，不能进行批量编号，请指教


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

主题：[求助]在增加图片列：扫描件列时，批量增加图片时，不能进行批量编号，请指教
帅哥哟，离线，有人找我吗？
hrw68529
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1099 积分：8494 威望：0 精华：0 注册：2012/7/10 9:09:00 		[求助]在增加图片列：扫描件列时，批量增加图片时，不能进行批量编号，请指教  发帖心情 Post By：2017/10/12 8:03:00 [显示全部帖子]

[求助]在增加图片列：扫描件列时，批量增加图片时，不能进行批量编号，请指教
下列代码，如何修改，才能在“扫描件”列的单元格中批量增加图片时，自动编号，现在是批量增加图片时，只生成1号，然后说重命名或覆盖，谢谢
代码：
Dim dr As DataRow = e.DataRow
If dr.IsNull("年度") Or Dr.IsNull("工伤认定文号") Or dr.IsNull("受伤害职工姓名")  Then
    MessageBox.Show("不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    If e.DataCol.Name = "扫描件" Then
        e.SubFolder = e.DataCol.name & "\" & dr("年度") & "\" & dr("受伤害职工姓名")
        e.FileName = dr("工伤认定文号") & "_" & dr("受伤害职工姓名") & "_" & (e.DataRow.Lines("扫描件").Count + 1) & ".jpg"
    End If
End If
出现的问题是：如图：
图片点击可在新窗口打开查看此主题相关图片如下：截图00.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1099 积分：8494 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/10/12 9:12:00 [显示全部帖子]

 e.FileName = dr("工伤认定文号") & "_" & dr("受伤害职工姓名") & "_" & (e.DataRow.Lines("扫描件").Count + 1) & ".jpg"
标红的地方怎么改，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1099 积分：8494 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/10/12 10:39:00 [显示全部帖子]

有点甜，能解决不，谢谢

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


加好友 发短信
等级：五尾狐 帖子：1099 积分：8494 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/10/12 15:22:00 [显示全部帖子]

有点甜：出现的问题是一次批量增加图片时，提示覆盖，然后就是编号一样的文件了，你看下图：

图片点击可在新窗口打开查看此主题相关图片如下：截图01.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1099 积分：8494 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/10/12 16:40:00 [显示全部帖子]

我把你的代码修改到我的代码中，可以增加了，但每次需点覆盖确定按钮，点击确定按钮后，生成按编号的文件，怎么不按按钮就能自动编号？
代码：Dim dr As DataRow = e.DataRow
If dr.IsNull("年度") Or Dr.IsNull("工伤认定文号") Or dr.IsNull("受伤害职工姓名")  Then
    MessageBox.Show("不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    If e.DataCol.Name = "扫描件" Then
          Dim ls = vars("path")
        e.SubFolder = e.DataCol.name & "\" & dr("年度") & "\" & dr("工伤认定文号") & "_" & dr("受伤害职工姓名")
        e.FileName = dr("受伤害职工姓名") & "_" & (ls.Count +1) & ".jpg"
        ls.add(e.FileName)
    End If
End If
出现问题图：1、
图片点击可在新窗口打开查看此主题相关图片如下：截图02.jpg
图片点击可在新窗口打开查看
2、
图片点击可在新窗口打开查看此主题相关图片如下：截图03.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1099 积分：8494 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/10/12 16:57:00 [显示全部帖子]

修改好后，出现下图：怎么回事呢？

图片点击可在新窗口打开查看此主题相关图片如下：截图04.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1099 积分：8494 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/10/12 17:18:00 [显示全部帖子]

搞定了，谢谢你，有点甜
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05493 秒, 5 次数据查询