- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 合并导入 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63617)
-- 发布时间：2015/1/25 9:03:00
-- 合并导入
怎么导入xls 时按照列名导入呢
-- 发布时间：2015/1/25 9:33:00
--
Dim Book As New XLS.Book("d:\\产品资料.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("产品资料").StopRedraw()
Dim nms() As String = {"公司","本厂型号","中文描述","规格","中高对角","库存","可用数"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim r As Row = Tables("产品资料").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,m).Value
Next
Next
Tables("产品资料").ResumeRedraw()
出现错误
此主题相关图片如下：qq截图999999999999999999999.png
-- 发布时间：2015/1/25 10:23:00
--
代码不会报你这个错，如果出错，请上传出错例子。
-- 发布时间：2015/1/25 13:02:00
--
谢谢 已经搞懂了
-- 发布时间：2015/1/25 14:18:00
--
大量数据导入太慢 有没有更快的办法 一万行得十几分钟 太慢了 有没有更快的代码
Dim Book As New XLS.Book("d:\\产品资料.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("产品资料").StopRedraw()
Dim nms() As String = {"公司","本厂型号","中文描述","规格","中高对角","库存","可用数"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim r As Row = Tables("产品资料").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,m).Value
Next
Next
Tables("产品资料").ResumeRedraw()
还有就怎么实现用手工指定要导入的XLS数据表
-- 发布时间：2015/1/25 14:51:00
--
动态数据源，加Filler，参考
http://www.foxtable.com/help/topics/0680.htm
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:excel作为数据源_合并.table |
-- 发布时间：2015/1/25 16:26:00
--
没搞懂 不能直接合并到数据表吗
还是非得先生成一个临时表再填充到数据表中
还有临时表中的数据怎么清楚呢
-- 发布时间：2015/1/25 16:35:00
--
没搞懂 不能直接合并到数据表吗
还是非得先生成一个临时表再填充到数据表中
也可以啊，关键是你要搞懂代码啊。
添加数据源以后，看下面的帮助问题，可以不生成临时表啊
参考 http://www.foxtable.com/help/topics/2137.htm
-- 发布时间：2015/3/8 11:43:00
--
合并进来的列怎么变成 字符型 长度都是225 老师帮我 看看怎么解决呢
没办法填充到其他数据表
-- 发布时间：2015/3/8 11:53:00
--
合并进来的列怎么变成 字符型 长度都是225 老师帮我 看看怎么解决呢
没办法填充到其他数据表
合并是在你原有的表结构上合并的啊，你的列设置成备注列就行了啊。