- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 难题！有关表中附带文件的问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13070)
-- 发布时间：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:40:00
--
导入后在最后一列重新设置列属性： 扩展列类型－选择“文件”，路径也要正确。
-- 发布时间：2011/9/26 21:46:00
--
这个我知道，假如我有1000条数据，有1000个文件，能不能批量一一对应自动导入，不需要我一个个的选择。
-- 发布时间：2011/9/26 21:55:00
--
可以的··· 发你的电子文档文件上来
-- 发布时间：2011/9/26 22:08:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:123.rar |
-- 发布时间：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
-- 发布时间：2011/9/27 14:31:00
--
能指定一个路径作为附件的存放位置吗？如果在管理项目路径下面，文件多了太乱。
-- 发布时间：2011/9/27 14:35:00
--
http://www.foxtable.com/help/topics/2209.htm
-- 发布时间：2011/9/27 16:04:00
--
r("附件") = "C:\\...........\\123\\" & r("编号") & ".txt" \'***绿色部分为指定的路径···