主题：求助：代码添加图片改名

各位老师：

在主表中我增加了改名，

Dim dr As DataRow = e.DataRow
 If dr.IsNull("第二列") Or dr.IsNull("第三列") Then
     e.Cancel = True
 Else
     e.FileName = dr("第二列") & dr("第三列") & ".jpg"
 End If

在窗口中用图片浏览器添加的图片，可以改名。

我在窗口中增加一个按钮，代码是按照帮助中改动了图片保存地址，代码如下：

Dim dlg As New  OpenFileDialog
 Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
 dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif" 
 If dlg.ShowDialog = DialogResult.OK Then
    Dim pth As String = "E:\新建文件夹\"
    If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then 
        piv.AddFile(dlg.FileName.SubString(pth.Length))
     Else 
        FileSys.CopyFile(dlg.FileName, pth & FileSys.GetName(dlg.FileName))
         piv.AddFile(FileSys.GetName(dlg.FileName))
     End If
 End  If

代码能将图片增加到当前行的第四列中，但不能改名。

我想要的效果是，怎么将按钮中添加的图片也改名。

请各位老师指教！

谢谢！

此主题相关图片如下：微信图片_20180824213128.png