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

各位老师：

在主表中我增加了改名，

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

这种直接在代码中插入正确的名称

谢谢蓝老师指教！

蓝老师：想上传图片，但无法引用动态图片名称。

   麻烦给指导一下代码错在那里了？单一上传图片没有问题。

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

看看：http://www.foxtable.com/webhelp/scr/1284.htm

蓝老师：

   我把里面所有的都试了，就是无法引用，老师！

   我真的是没有办法了，才咨询的！

代码贴出来，图片没有办法改

老师：代码如下：

Dim dlg As New  OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
Dim piv1 As WinForm.PictureViewer = e.Form.Controls("PictureViewer2")
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif"
Dim t As Table = e.Form.controls("Table1").Table
If dlg.ShowDialog = DialogResult.OK AndAlso t.Current IsNot Nothing Then
    Dim pth As String = "E:\质量管理系统\不良照片\进货检验\不良照片\"
    Dim name As String = t.Current("编号图号") & t.Current("序号") & ".jpg"
    If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then
        If dlg.FileName <> pth & name Then
            FileSys.RenameFile(dlg.FileName,name)
        End If
    Else
        FileSys.CopyFile(dlg.FileName, pth & name)
    End If
    piv.AddFile(name)
End  If
Dim ftp1 As New FtpClient
ftp1.Host="172.30.101.130"
ftp1.Account = "FTPuser"
ftp1.Password = "cxm"
   If ftp1.Upload("E:\质量管理系统\不良照片\进货检验\不良照片\'name'","\进货检验照片\不良照片\'name'") = True Then
    piv1.AddFile("\进货检验照片\不良照片\'name'")
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
   Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
  End If

 

请指教！

改成比如

 

   If ftp1.Upload("E:\质量管理系统\不良照片\进货检验\不良照片\" & name, "\进货检验照片\不良照片\" & name) = True Then
    piv1.AddFile("\进货检验照片\不良照片\" & name)

老师：终于在你们的指导下明白了错在哪里了

谢谢蓝老师、甜老师指点！