Dim dr As DataRow = e.DataRow
If dr.IsNull("身份证号码") Then
MessageBox.Show("请先输入身份证号码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
e.FileName = dr("身份证号码") & ".jpg"
End If
我的需求有几个条件 我有一个产品编号 一个采购编号 文件列
我需要执行的流程是 向文件列导入文件时 采购编号获取 我要导入的文件原始名 并写入采购编号列 然后原始文件更具产品编号命名存入文件夹
源文件是 新的图.jpg 产品编号 123
执行的流程是 向文件列导入文件时 采购编号写入“新的图 ” 然后以重新命名 123.JPG 存入指定路径
重新命名 123.JPG 存入指定路径可以使用了如下 需要加入 向文件列导入文件时 采购编号获取 我要导入的文件原始名 并写入采购编号列的功能
还需要请教老师们
Dim dr As DataRow = e.DataRow
If 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("产品名称") & "\" & "A 效果图片"
Case "产品效果多"
e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" & "\" & dr("产品名称") & "\" & "A 效果图片"
Case "产品三视图"
e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" & "\" & dr("产品名称") & "\" & "B 三视图片"
Case "动态图"
e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" & "\" & dr("产品名称") & "\" & "C 动态图片"
Case "产品空间"
e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" &"\" & dr("产品名称") & "\" & "D 空间图片"
Case "产品案例"
e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" &"\" & dr("产品名称") & "\" & "E 案例图片"
Case "设计稿"
e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" & "\" & dr("产品名称") & "\"& "F 设计文件"
Case "工艺文件"
e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" & "\" & dr("产品名称") & "\" & "G 工艺文件"
Case "成本测算"
e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" & "\" & 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("产品编号") & e.DataRow("产品名称")& hz
加好友 
发短信
Post By：2014/9/11 14:46:00 [显示全部帖子]
