- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]连接ORCAL数据库显示对于非兼容外部表... (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78956)
-- 发布时间：2015/12/21 15:37:00
-- [求助]连接ORCAL数据库显示对于非兼容外部表...
此主题相关图片如下：2015121711400947.jpg
-- 发布时间：2015/12/21 16:43:00
--
主键列必须是自动递增的，才能用到高速合并功能。
否则，你就只能用写代码的方式合并 http://www.foxtable.com/help/topics/2334.htm
-- 发布时间：2015/12/23 8:58:00
--
Dim Book As New XLS.Book("c:\\费用.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("凭证").StopRedraw()
\'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"ID,"摘要","借金额","贷方金额","科目代码"}
\'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
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()
此主题相关图片如下：2221.jpg
[此贴子已经被作者于2015/12/23 8:58:52编辑过]
-- 发布时间：2015/12/23 9:02:00
--
试试
Dim Book As New XLS.Book("c:\\费用.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("凭证").StopRedraw()
\'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"ID,"摘要","借金额","贷方金额","科目代码"}
\'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
Dim r As DataRow = DataTables("凭证").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,m).Value
Next
Next
Tables("凭证").ResumeRedraw()
-- 发布时间：2015/12/23 9:03:00
--
尽量用自增字段做主键。