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

帮助中有这么一个示例：

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