Dim dr As DataRow = e.DataRow
If dr.IsNull("产品名称") OrElse dr.IsNull("家具分类") OrElse dr.IsNull("产品编号")Then
MessageBox.Show("产品名称,家具类别 家具分类 编号 都不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
Select Case e.DataCol.Name
Case "产品效果图"
e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" & "\" & dr("家具风格") & "\" & dr("产品名称") & "\" & "A 效果图片"
Case "产品三视图"
e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" & "\" & dr("家具风格") & "\" & dr("产品名称") & "\" & "B 三视图片"
Case "动态图"
e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" & "\" & dr("家具风格") & "\" & dr("产品名称") & "\" & "C 动态图片"
Case "产品空间"
e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" &"\" & dr("家具风格") & "\" & dr("产品名称") & "\" & "D 空间图片"
Case "产品案例"
e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" &"\" & dr("家具风格") & "\" & dr("产品名称") & "\" & "E 案例图片"
Case "设计稿"
e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" & "\" & dr("家具风格") & "\" & dr("产品名称") & "\"& "F 设计文件"
Case "工艺文件"
e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" & "\" & dr("家具风格") & "\" & dr("产品名称") & "\" & "G 工艺文件"
Case "成本测算"
e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" & "\" & dr("家具风格") & "\" & dr("产品名称") & "\" & "E 成本文件"
End Select
End If
Dim s As String = e.filename
Dim Index As Integer = s.LastIndexOf(".")
Dim hz As String = s.SubString(Index,s.length-Index)
e.filename=e.DataRow("产品编号") & hz
上面的代码会将所有的内容强制的重名名为指定文件名 我想增加些选择功能
如果是"产品效果图" 就是按照上面的代码执行
如果是"产品空间""成本测算"等的话 在原来的名称上重命名为
结果实例是 效果图.jpg
如果有第二个文件插入进来就会是效果图（1）.jpg 效果图（2）.jpg依次类推，
该如何实现呢
[此贴子已经被作者于2014-9-25 17:27:23编辑过]
加好友 
发短信
Post By：2014/9/11 11:23:00 [只看该作者]
