以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助:代码添加图片改名  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123860)

--  作者:cxmxjwlmq
--  发布时间:2018/8/24 21:41:00
--  求助:代码添加图片改名

各位老师:

在主表中我增加了改名,

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
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2018/8/24 21:57:00
--  
这种直接在代码中插入正确的名称

Dim dlg As New  OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
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

--  作者:cxmxjwlmq
--  发布时间:2018/8/25 12:36:00
--  
谢谢蓝老师指教!
--  作者:cxmxjwlmq
--  发布时间:2018/8/25 17:03:00
--  

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

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


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20180825150815.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2018/8/25 17:06:00
--  
看看:http://www.foxtable.com/webhelp/scr/1284.htm
--  作者:cxmxjwlmq
--  发布时间:2018/8/25 17:18:00
--  

蓝老师:

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

   我真的是没有办法了,才咨询的!


--  作者:有点蓝
--  发布时间:2018/8/25 17:49:00
--  
代码贴出来,图片没有办法改

"...不良照片\\" & name

--  作者:cxmxjwlmq
--  发布时间:2018/8/25 20:49:00
--  

老师:代码如下:

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

 

请指教!


--  作者:有点甜
--  发布时间:2018/8/26 23:56:00
--  

改成比如

 

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


--  作者:cxmxjwlmq
--  发布时间:2018/8/27 0:47:00
--  

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

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

[此贴子已经被作者于2018/8/27 1:05:47编辑过]