主题：合并导入

怎么导入xls 时按照列名导入呢

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

 代码不会报你这个错，如果出错，请上传出错例子。

谢谢  已经搞懂了

大量数据导入太慢   有没有更快的办法  一万行得十几分钟  太慢了  有没有更快的代码 

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数据表

 动态数据源，加Filler，参考

 

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

 

  

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

点击浏览该文件:excel作为数据源_合并.table

没搞懂  不能直接合并到数据表吗   

还是非得先生成一个临时表再填充到数据表中

还有临时表中的数据怎么清楚呢

 

也可以啊，关键是你要搞懂代码啊。

 

添加数据源以后，看下面的帮助问题，可以不生成临时表啊

 

参考 http://www.foxtable.com/help/topics/2137.htm

 

合并进来的列怎么变成  字符型   长度都是225   老师帮我  看看怎么解决呢

没办法填充到其他数据表 

 

 

合并是在你原有的表结构上合并的啊，你的列设置成备注列就行了啊。