主题：[求助] 难题！有关表中附带文件的问题？

求助高手编写代码~

 

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

例如：

 

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)

见附件图的效果。

 

导入后在最后一列重新设置列属性： 扩展列类型－选择“文件”，路径也要正确。

这个我知道，假如我有1000条数据，有1000个文件，能不能批量一一对应自动导入，不需要我一个个的选择。

可以的···   发你的电子文档文件上来

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:123.rar

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

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

能指定一个路径作为附件的存放位置吗？如果在管理项目路径下面，文件多了太乱。

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

 

 

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