- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]图片列增加多张图片后重新命名的做法？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75988)
-- 发布时间：2015/10/19 15:29:00
-- [求助]图片列增加多张图片后重新命名的做法？
老师，我想请教在“图片列”增加多张图片后，同时用“商品型号”为这些图片重命名，并建立一个独立的文件夹存放，这个得怎么做？
[此贴子已经被作者于2015/10/19 15:30:58编辑过]
-- 发布时间：2015/10/19 15:33:00
--
参考
http://www.foxtable.com/help/topics/2210.htm
-- 发布时间：2015/10/21 19:55:00
--
老师，我给图片重命令做出来了，可是文件夹分别存放没做成。我看示例五了，可也没做出来。求指教。
[此贴子已经被作者于2015/10/21 19:56:56编辑过]
-- 发布时间：2015/10/21 20:18:00
--
比如代码，你要保存到那个文件夹，subFolder就填什么文件名
Dim dr As
DataRow = e.DataRow
If dr.IsNull("拍摄日期") Or Dr.IsNull("作者") Then
MessageBox.Show("拍摄日期和作者不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
e.SubFolder = dr("作者") & "\\" & dr("拍摄日期").Year
End
If
-- 发布时间：2015/10/22 13:33:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:商品登记表.zip |
此主题相关图片如下：0.jpg
老师，我按照你说的做了，可是提示我还是不行。
-- 发布时间：2015/10/22 14:11:00
--
If dr1.IsNull("商品型号") Or Dr.IsNull("供货商编号") Then
MessageBox.Show("供货商编号和商品型号不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
e.SubFolder = dr("供货商编号") & "\\" & dr("商品型号")
End If