- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 图片管理器新增图片重命名的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65065)
-- 发布时间：2015/3/8 16:54:00
-- 图片管理器新增图片重命名的问题
用了帮助里的例子：
假定表中有两列，分别是身份证号码和照片，希望向照片列添加文件的时候，能自动根据身份证号码来重命名此文件，为此可将BeforeAttachFile事件代码设置为：
Dim dr As DataRow = e.DataRow
If dr.IsNull("身份证号码") Then
MessageBox.Show("请先输入身份证号码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
e.FileName = dr("身份证号码") & ".jpg"
End If
现想在身份证号码后面加上图片原有的文件名，怎么写？ 如：原图片文件名为“刘军.jpg”，重命名后的文件名为："452424198809011151刘军.jpg"
-- 发布时间：2015/3/8 16:59:00
--
Dim dr As DataRow = e.DataRow
If dr.IsNull("身份证号码") Then
MessageBox.Show("请先输入身份证号码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
e.FileName = dr("身份证号码") & FileSys.GetName(e.FileName)
End If
-- 发布时间：2015/3/8 17:19:00
--
太谢谢了，解决了。有困难找版主！