专家坐堂-文件导入时重命名为指定的文件名Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  文件导入时重命名为指定的文件名  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51252)

--  作者：yifan3429
--  发布时间：2014/5/22 18:57:00
--  文件导入时重命名为指定的文件名

e.SubFolder = dr("目录标题") & "\\" & dr("国籍") & "\\" &dr("企业_名称") & "\\" & format(dr("日期").Today,"yyyy-MM-dd") & "\\3.拍摄书籍"

我想在导入文件时，自动将文件名称名称("文件名称") 列相同可以吗怎样写代码

比如图片原来是QQ截图的自动名称   现到导入就会被重名为 ("文件名称") 列对应的行内容名称

--  作者：有点甜
--  发布时间：2014/5/22 19:04:00
--

呃，可以的，你不是设置了么，直接设置即可。

DataTable：    触发事件的DataTable
DataRow：      触发事件的DataRow
DataCol:       触发事件的DataCol
SourceFolder：要添加文件的来源目录
FileName：     要添加文件的名称，你可以根据需要改名。
SubFolder：    指定存放文件的子目录
Cancel：       逻辑型，是否取消此次添加。

--  作者：yifan3429
--  发布时间：2014/5/22 20:03:00
--

以下是引用有点甜在2014-5-22 19:04:00的发言：

呃，可以的，你不是设置了么，直接设置即可。

DataTable：    触发事件的DataTable
DataRow：      触发事件的DataRow
DataCol:       触发事件的DataCol
SourceFolder：要添加文件的来源目录
FileName：     要添加文件的名称，你可以根据需要改名。
SubFolder：    指定存放文件的子目录
Cancel：       逻辑型，是否取消此次添加。

这个我看过了



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 = dr("目录标题") & "\\" & dr("国籍") & "\\" & dr("企业_名称") & "\\" & dr("日期").Today & "4.\\网络书籍"

这样的我需要按照国籍来命名怎样写呢

--  作者：有点甜
--  发布时间：2014/5/22 20:27:00
--

直接写

e.FileName = dr("国籍") & e.FileName.SubString(e.FileName.LastIndexof("."))

--  作者：yifan3429
--  发布时间：2014/6/7 9:41:00
--

Dim dr As DataRow = e.DataRow
If dr.IsNull("项目") OrElse dr.IsNull("子项目") Then
msgbox("项目,子项目列不能为空")
e.cancel = True
Else
Select Case e.DataCol.Name
Case "工作成果"
e.SubFolder = dr("文件归档")& "\\" & dr("项目") & "\\" & dr("一级任务") & "\\" & dr("子项目") & e.FileName.SubString(e.FileName.LastIndexof(".")) & User.Name & format(dr("日期").Today,"yyyy-MM") & "更新定稿版"
End Select
End If

我这样只是重命名了文件夹我需要修改我导入的文件名要怎样修改代码

如图
附件上传不了

[此贴子已经被作者于2014-6-7 9:45:36编辑过]

--  作者：Bin
--  发布时间：2014/6/7 9:46:00
--
更改E.FileName 看2楼

--  作者：yifan3429
--  发布时间：2014/6/7 9:50:00
--
我知道要更改关键是布置到代码怎么组合才行

我怎么组都是修改文件夹名而不是我导入的文件名

[此贴子已经被作者于2014-6-7 9:52:51编辑过]

--  作者：Bin
--  发布时间：2014/6/7 9:52:00
--
你喜欢怎么样就怎么样组合.没有限制.你想改成什么样就什么样啊

--  作者：yifan3429
--  发布时间：2014/6/7 9:53:00
--

我怎么组都是修改文件夹名而不是我导入的
此主题相关图片如下：qq截图20140607093847.png

文件名

高手老师在线求代码调整方案

[此贴子已经被作者于2014-6-7 10:02:51编辑过]

--  作者：Bin
--  发布时间：2014/6/7 10:05:00
--
e.FileName ="123.xlsx"