各位老师：

在主表中我增加了改名，

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

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

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

请各位老师指教！

谢谢！

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

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

蓝老师：

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

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

老师：代码如下：

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)

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

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