以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 难题!有关表中附带文件的问题?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13070)

--  作者:54292550
--  发布时间:2011/9/26 21:10:00
--  [求助] 难题!有关表中附带文件的问题?

求助高手编写代码~

 

我想导入数据后自动在数据表最后一列加入附件文件。

例如:

 

1        A00001 123 123 123 123 123 A00001.txt
2        A00002 124 124 124 124 124 A00002.txt
3        A00003 125 125 125 125 125 A00003.txt
4        A00004 126 126 126 126 126 A00004.txt
5        A00005 127 127 127 127 127 A00005.txt
6        A00006 128 128 128 128 128 A00006.txt
7        A00007 129 129 129 129 129 A00007.txt

8        A00008 130 130 130 130 130 A00008.txt
9        A00009 131 131 131 131 131 A00009.txt

假如我导入一个Excel文件,有一列是编号(A00001---A00009),我想自动导入一个固定文件夹里面的文件,分别一一对应,(A00001对应A00001.txt 、.........A00009对应A00009.txt)

见附件图的效果。

 

[此贴子已经被作者于2011-9-26 21:13:31编辑过]

--  作者:mr725
--  发布时间:2011/9/26 21:40:00
--  
导入后在最后一列重新设置列属性: 扩展列类型-选择“文件”,路径也要正确。
[此贴子已经被作者于2011-9-26 21:40:26编辑过]

--  作者:54292550
--  发布时间:2011/9/26 21:46:00
--  
这个我知道,假如我有1000条数据,有1000个文件,能不能批量一一对应自动导入,不需要我一个个的选择。
--  作者:mr725
--  发布时间:2011/9/26 21:55:00
--  
可以的···   发你的电子文档文件上来
--  作者:54292550
--  发布时间:2011/9/26 22:08:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:123.rar


--  作者:mr725
--  发布时间:2011/9/26 22:19:00
--  

把你文件解压缩到项目文件目录下:做一个按钮:


Dim ip As New Importer
ip.SourcePath = "C:\\管理项目1\\user.xls"
ip.SourceTableName = "Sheet1"
ip.NewTableName ="导入"
ip.Format = "Excel"
ip.Import()
For Each r As Row In Tables("导入").rows
r("附件") = r("编号") & ".txt"
Next
DataTables("导入").DataCols("附件").ExtendType  = ExtendTypeEnum.file


--  作者:54292550
--  发布时间:2011/9/27 14:31:00
--  
能指定一个路径作为附件的存放位置吗?如果在管理项目路径下面,文件多了太乱。
--  作者:狐狸爸爸
--  发布时间:2011/9/27 14:35:00
--  

http://www.foxtable.com/help/topics/2209.htm

 


--  作者:mr725
--  发布时间:2011/9/27 16:04:00
--  

 


r("附件") = "C:\\...........\\123\\" & r("编号") & ".txt"     \'***绿色部分为指定的路径···