以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  文件导入时文件名列 以文件原始名命名  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56734)
--  作者：yifan3429
--  发布时间：2014/9/11 14:46:00
--  文件导入时文件名列 以文件原始名命名
文件导入时文件名列 以文件原始名命名


我在文件附件列添加文件时   文件名称   以源文件为名

例如  销售计划 .doc    导入时  文件名称 列  =  销售计划
--  作者：Bin
--  发布时间：2014/9/11 14:51:00
--  
http://www.foxtable.com/help/topics/2209.htm

设置e.Filename
--  作者：yifan3429
--  发布时间：2014/9/22 10:20:00
--  
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
--  作者：有点甜
--  发布时间：2014/9/22 10:26:00
--  

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
e.DataRow("采购编号") = hz

[此贴子已经被作者于2014-9-22 10:25:48编辑过]
--  作者：yifan3429
--  发布时间：2014/9/22 10:46:00
--  
这个  hz  是后缀名啊

我是要获取文件名    排除后缀名

这个不会
--  作者：有点甜
--  发布时间：2014/9/22 10:54:00
--  
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
e.DataRow("采购编号") = s.SubString(0, Index)