主题：图片管理器新增图片重命名的问题

用了帮助里的例子：

假定表中有两列，分别是身份证号码和照片，希望向照片列添加文件的时候，能自动根据身份证号码来重命名此文件，为此可将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"

太谢谢了，解决了。有困难找版主！